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CUSTOM MANUFACTURED IN THE USA /BY &ADIO SHACK, \A'0§0^mlmmmWm. 



A Special Note on Model III Computer Graphics... 



Be sure to use the GCLS command ("clear the Graphics 
Screen") at TRSDOS READY when you first turn on your 
computer. Otherwise, random graphics may appear on the 
Screen. 



Thank You 
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CUSTOMER OBLIGATIONS 



LIMITED WARRANTY 



CUSTOMER assumes full responsibility that this Radio Shack computer hardware purchased (the "Equipment ), and any co pies o 'Radio 
Shack software included with the Equipment or licensed separately (the "Software") meets the specifications, capacity, capabilities, 
versatility, and other requirements of CUSTOMER, *■>,■*♦* r nm ^ flnt , nH cnftuuarp 

B. CUSTOMER assumes full responsibility for the condition and effectiveness of the operating environment in which the Equipment and Software 
are to function, and for its installation. 

II. RADIO SHACK LIMITED WARRANTIES AND CONDITIONS OF SALE 

A For a Deriod of ninety (90) calendar days from the date of the Radio Shack sales document received upon purchase of the Equipment RADIO 
SHACK warrants to the original CUSTOMER that the Equipment and the medium upon which the Software is stored is free fronr i manufac urmg 
defects THIS WARRANTY IS ONLY APPLICABLE TO PURCHASES OF RADIO SHACK EQUIPMENT BY THE ORIGINAL CUSTOMER FROM 
RADIC ^SHAck COMPANY-OWNED COMPUTER CENTERS, RETAIL STORES AND FROM RADIO SHACK FRANCHISEES AND DEALERS AT ITS 
AUTHORIZED LOCATION The warranty is void if the Equipment's case or cabinet has been opened, or if the Equipment or Software has oeen 
subjected to improper or abnormal use. If a manufacturing defect is discovered during the stated warranty period, the defective Eq ui P me nt 
must be returned to a Radio Shack Computer Center, a Radio Shack retail store, participating Radio Shack franchisee or Radio Shack dealer 
for repair, along with a copy of the sales document or lease agreement. The original CUSTOMER'S sole and exclusive remedy m the event of 
a defect is limited to the correction of the defect by repair, replacement, or refund of the purchase price, at RADIO SHACK S election and sole 
expense. RADIO SHACK has no obligation to replace or repair expendable items. 

B RADIO SHACK makes no warranty as to the design, capability, capacity, or suitability for use of the Software, except as provided in this 
paragraph Software is licensed on an "AS IS" basis, without warranty. The original CUSTOMER'S exclusive remedy, in the event of a 
Software manufacturing defect, is its repair or replacement within thirty (30) calendar days of the date of the Radio Shack sales document 
received upon license of the Software. The defective Software shall be returned to a Radio Shack Computer Center, a Radio Shack retail store, 
participating Radio Shack franchisee or Radio Shack dealer along with the sales document, 

C. Except as provided herein no employee, agent, franchisee, dealer or other person is authorized to give any warranties of any nature on benait 

D. Exc R ep?a°s pSd herein, RADIO SHACK MAKES NO WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A 
PARTICULAR PURPOSE 

E. Some states do not allow limitations on how long an implied warranty lasts, so the above limitation(s) may not apply to CUSTOMER. 

III. LIMITATION OF LIABILITY 

A. EXCEPT AS PROVIDED HEREIN, RADIO SHACK SHALL HAVE NO LIABILITY 'OF ^RESPONSIBILITY TO CUSTOMER OR ANY OTHER I PERSON 
OR ENTITY WITH RESPECT TO ANY LIABILITY, LOSS OR DAMAGE CAUSED OR ALLEGED TO BE CAUSED DIRECTLY OR NDIRECTLY BY 
"EQUIPMENT" OR "SOFTWARE" SOLD, LEASED, LICENSED OR FURNISHED BY RADIO SHACK, INCLUDING .BUT NOT LIMITED TO ANY 
INTERRUPTION OF SERVICE, LOSS OF BUSINESS OR ANTICIPATORY PROFITS OR CONSEQUENTIAL DAMAGES RESULTING FROM THE 
USE OR OPERATION OF THE "EQUIPMENT" OR "SOFTWARE". IN NO EVENT SHALL RADIO SHACK BE LIABLE FOR 1 LOSS OF PRORTS. OR 
ANY INDIRECT, SPECIAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF ANY BREACH OF THIS WARRANTY OR IN ANY MANNER 
ARISING OUT OF OR CONNECTED WITH THE SALE, LEASE, LICENSE, USE OR ANTICIPATED USE OF THE "EQUIPMENT" OR "SOFTWARE . 
NOTWITHSTANDING THE ABOVE LIMITATIONS AND WARRANTIES, RADIO SHACK'S LIABILITY HEREUNDER FOR DAMAGES INCURRED BY 
CUSTOMER OR OTHERS SHALL NOT EXCEED THE AMOUNT PAID BY CUSTOMER FOR THE PARTICULAR "EQUIPMENT" OR "SOFTWARE 
INVOLVED 

B RADIO SHACK shall not be liable for any damages caused by delay in delivering or furnishing Equipment and/or Software 

C No action arising out of any claimed breach of this Warranty or transactions under this Warranty may be brought more than two (2) years 

after the cause of action has accrued or more than four (4) years after the date of the Radio Shack sales document for the Equipment or 

Software, whichever first occurs. „-„„/^ m „„ 

D. Some states do not allow the limitation or exclusion of incidental or consequential damages, so the above limitations) or exciusion(s) may 

not apply to CUSTOMER. 

IV. RADIO SHACK SOFTWARE LICENSE 

RADIO SHACK grants to CUSTOMER a non-exclusive, paid-up license to use the RADIO SHACK Software on one computer, subject to the following 

provisions: 1.0** 

A Except as otherwise provided in this Software License, applicable copyright laws shall apply to the Software. , OTn>irn u + t +>! . 

B. Title to the medium on which the Software is recorded (cassette and/or diskette) or stored (ROM) is transferred to CUSTOMER, but not title to 

C. CUSTOMER may use Software on one host computer and access that Software through one or more terminals if the Software permits this 
function. ... ., 

D CUSTOMER shail not use, make, manufacture, or reproduce copies of Software except for use on one computer and as is spectticany 

provided in this Software License. Customer is expressly prohibited from disassembling the Software. 
E CUSTOMER is permitted to make additional copies of the Software only for backup or archival purposes or if additional copies are required in 

the operation of one computer with the Software, but only to the extent the Software allows a backup copy to be made. However, for 

TRSDOS Software, CUSTOMER is permitted to make a limited number of additional copies for CUSTOMER'S own use. 
F CUSTOMER may resell or distribute unmodified copies of the Software provided CUSTOMER has purchased one copy of the Software tor each 

one sold or distributed. The provisions of this Software License shall also be applicable to third parties receiving copies of the Software from 

CUSTOMER. 
G. All copyright notices shall be retained on all copies of the Software. 

V. APPLICABILITY OF WARRANTY 

A The terms and conditions of this Warranty are applicable as between RADIO SHACK and CUSTOMER to either a sale of the Equipment and/or 
Software License to CUSTOMER or to a transaction whereby RADIO SHACK sells or conveys such Equipment to a third party for lease to 

B The limitations of liability and Warranty provisions herein shall inure to the benefit of RADIO SHACK, the author, owner and/or licensor of the 
Software and any manufacturer of the Equipment sold by RADIO SHACK. 

VI. STATE LAW RIGHTS 

The warranties granted herein give the original CUSTOMER specific legal rights, and the original CUSTOMER may have other rights which vary 
from state to state. 
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TRS-80* Computer Graphics Operation Manual Copyright 
1982 , All Rights Reserved, Tandy Corporation. 

Reproduction or use without express written permission from 
Tandy Corporation, of any portion of this manual is 
prohibited. While reasonable efforts have been taken in the 
preparation of this manual to assure its accuracy, Tandy 
Corporation assumes no liability resulting from any errors 
or omissions in this manual, or from the use of the 
information obtained herein. 



TRSDOS*" Operating System Copyright 1980, 1981, Tandy 
Corporation, All Rights Reserved. 



BASIC Software Copyright 1980, Microsoft, Inc., All Rights 
Reserved, Licensed to Tandy Corporation. 



BASICG Software Copyright 1982, Microsoft, Inc., All 
Rights Reserved, Licensed to Tandy Corporation. 
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To Our Customers . . • 

The TRS-80® Computer Graphics package revolutionizes your 
Model III by letting you draw intricate displays from simple 
program instructions. With the highly-defined Graphics 
Screen, the list of practical applications is nearly 
endless! 

The TRS-80 Computer Graphics package includes a: 

Computer Graphics Diskette 
Computer Graphics Operation Manual 

However, before you can use this package, your Model III 
must have 48K of RAM (Random Access Memory) and one disk 
drive. Your computer must also be modified by a qualified 
Radio Shack service technician. The only difference you'll 
notice is a cable which protrudes from the bottom of the 
Model III case. Do not attempt to disconnect this cable! 
This cable is provided to allow you to attach peripheral 
devices (such as a hard disk) to the I/O Bus Jack of the 
Model III. The cable connector which is attached directly to 
the I/O Bus Jack (see Point A in the figure below) must be 
firmly attached for the Computer Graphics package to work. 




Included on the Graphics diskette are: 

. TRSDOS 1.3 
. Disk BASIC 
. Graphics BASIC (BASICG) 

Graphics Subroutine Library (GRPLIB) 
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Graphics Utilities 

Sample Programs in BASICG and FORTRAN. 

To print graphic displays, you can use any Radio Shack 
printer that has graphic capabilities such as Line Printer 
VII (26-1167), Line Printer VIII (26-1168), DMP-100 
(26-1253), DMP-200 (26-1254), DMP-400 (26-1251), or DMP-500 
(26-1252). 

You can also utilize the Graphics Subroutine Library with 
several languages, including, but not limited to FORTRAN 
(26-2200). 

About This Manual . . . 

For your convenience, we've divided this manual into five 
sections plus appendixes: 

Computer Graphics Overview 

Graphics BASIC (BASICG) Language Description 

Graphics Utilities 

FORTRAN Description 

Programming the Graphics Board 

Appendixes 

This package contains two separate (but similar) methods for 
Graphics programming: 

Graphics BASIC (BASICG) 
Graphics Subroutine Library 

If you're familiar with Model III TRSDOS* 1 and BASIC, you 
should have little trouble in adapting to Graphics BASIC. 
If you want to review BASIC statements and syntax, see your 
Model III Operation and BASIC Language Reference Manual 
and Model III Disk System Owner's Manual. Then read 
Chapters 1, 2 and 3, along with Appendixes A, B, E, and F of 
this manual. 

If it's Graphics applications in FORTRAN you're after, refer 
to the TRS-80 FORTRAN manual. Then read Chapters 1, 2, 3, 
and 4 as well as Appendixes C, D, E, and F of this manual. 

Note: This manual is written as a reference manual for the 
TRS-80 Computer Graphics package. It is not intended as a 
teaching guide for graphics programming. 
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Notational Conventions 



The following conventions are used to show syntax in this 
manual : 



CAPITALS 



lowercase underline 



<ENTER> 



f ilespec 



punctuation 
delimiters 



Any words or characters which 
are uppercase must be typed in 
exactly as they appear . 

Fields shown in lowercase 
underline are variable 
information that you must 
substitute a value for. 

Any word or character contained 
within brackets represents a 
keyboard key to be pressed. 

Ellipses indicate that a field 
entry may be repeated. 

A field shown as filespec 
indicates a standard TRSDOS 
file specification of the form: 
filename/ext .password ; d 
Note that with TRSDOS 1.3, d 
(Drive) can be any number 
from J0-3 . 

Punctuation other than ellipses 
must be entered as shown. 

Commands must be separated from 
their operands by one or more 
blank spaces. Multiple 
operands, where allowed, may be 
separated from each other by a 
comma, a comma followed by one 
or more blanks, or by one or 
more blanks . Blanks and commas 
may not appear within an 
operand. 
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1/ Computer Graphics Overview 



Graphics is the presentation of dimensional artwork. With 
TRS-80 Computer Graphics, the artwork is displayed on a 
two-dimensional plane — your computer screen. Like an 
artist's easel or a teacher's blackboard, the screen is a 
"drawing board" for your displays. 

TRS-80 Computer Graphics has two colors: 

Black (OFF) 
White (ON) 

Graphics programming is different from other types of 
programming because your ultimate result is a pictorial 
display (bar graph, pie chart, etc.) rather than textual 
display -(sum, equation, etc. ) . This is an important 
distinction. After working with graphics for a while, you'll 
find yourself thinking "visually" as you write programs. 

In computer-generated graphics, displays can include tables, 
charts, graphs, illustrations and other types of artwork. 
Once they're created, you can "paint" displays with a 
variety of styles and shapes, or even simulate animation. 

The Computer Graphics program uses a "high-resolution" 
screen. The more addressable points or dots (called 
"pixels") on a computer's screen, the higher the resolution. 
A lower resolution screen has fewer addressable pixels. 
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Lower resolution 



Higher resolution 



Figure 1. Resolution 



Since the TRS-80 has high-resolution — 640 pixels on the 
X-axis (0 to 639) and 240 pixels on the Y-axis (0 to 239) 
you can draw displays that have excellent clarity and 
detail. 



How TRS-80 Computer Graphics Works 

The concept of graphics is fairly simple. Each point on the 
screen can be turned ON (white) or OFF (black). 

When you clear the Graphics Screen, all graphic points are 
turned OFF. 

Therefore, by setting various combinations of the pixels 
(usually with a single command) either ON or OFF, you can 
generate lines, circles, geometric figures, pictures, etc. 

The Graphics Subroutine Library, which is part of the 
Computer Graphics package, contains subroutines which 
provide the same capabilities, as well as similar names and 
parameters, as the commands and functions in Graphics BASIC. 
The main difference between the Subroutine Library and 
BASICG is the manner in which coordinates are specified 
(e.g., BASICG coordinates are specified as arguments for 
each command while the Subroutine Library specifies 
coordinates with a separate subroutine call). Another 
difference concerns the names of a few routines (e.g., LINE 
vs. LINEB vs. LINEBF, etc.). All of these differences will 
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be described in detail in the appropriate sections of this 
manual . 



The Graphics Screen 

TRS-80 Computer Graphics has two "screens" — Text and 
Graphics. (We'll call them screens, although they are really 
modes . ) Both screens can act independently of each other and 
make use of the computer's entire display area. 

The Text Screen, also referred to as the "Video Display," is 
the "normal" screen where you type in your programs. The 
Graphics Screen is where graphic results are displayed. Both 
screens can be cleared independently . Note : The Graphics 
Screen will not automatically be cleared when you return to 
TRSDOS. It will be cleared when you re-enter BASICG. 

The Graphics Screen cannot be displayed at the same time as 
the Text Screen. 

While working with Computer Graphics, it might be helpful to 
imagine the screen as a large Cartesian coordinate plane 
(with a horizontal X- and a vertical Y-axis). However, 
unlike some coordinate systems, TRS-80 Computer Graphics' 
coordinate numbering starts in the upper-left corner — 
(0,0) — and increases toward the lower-right corner — 
(639,239). The lower-left corner is (0,239) and the 
upper-right corner is (639,0) . 

Since the screen is divided into X-Y coordinates (like the 

Cartesian system), each pixel is defined as a unique 

position. In TRS-80 Computer Graphics, you can directly 

reference these coordinates as you draw. 



About Ranges . . . 

Some TRS-80 Computer Graphics commands accept values within 
the Model III integer range (-32768 to 32767), instead of 
just to 639 for X and to 239 for Y. Since most of the 
points in the integer range are off the screen, these points 
are part of what is called Graphics "imaginary" Cartesian 
system. 
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Figure 2. Graphics Visible Screen 
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; +32767,0) 
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(0, 32767) 



Figure 3. Graphics "Imaginary" Cartesian System 



Radio /hack 

-ii- 



Computer Graphics Operation Manual 
- TRS-SO @ 



2/ Graphics BASIC 

Graphics BASIC (BASICG) vs. BASIC 

The Graphics BASIC file on the supplied diskette is named 
BASICG. 

Program files created under BASICG are not directly loadable 
with BASIC files (and vice versa). If you attempt to load a 
BASIC file in compressed format from BASICG (and vice 
versa), an NB error may occur. See Appendix B for a list of 
BASICG error messages. 

If you want to load a file from one BASIC to the other to 
the other, we recommend that you first save the file in 
ASCII format (SAVE w f ilename/ext " y A) . 

You can then load and run a BASIC file from either BASICG or 
BASIC. You cannot run programs that contain BASICG 
statements while in BASIC. 

Important Note: Because of memory limitations, some programs 
(i.e., some application programs) will not run in BASICG. 
BASICG uses approximately 6.5K more memory than BASIC. When 
you enter BASIC with files, there are 39,282 bytes free. 
When you enter BASICG with files, there are 32,675 bytes 
free. Some Graphics Commands use Free Memory. This means 
that the larger your BASIC programs are, the more 
limitations on your Graphics capabilities . 

Each Graphics program statement has a specific syntax and 
incorporates a Graphics BASIC command or function. 

Table 1 gives a brief description of the BASICG commands; Table 2 
lists the BASICG functions. This section of the manual will 
describe each statement and function in detail . 



Radio /hack 

-12- 



Computer Graphics 



Operation Manual 



BASICG Commands 

Description 



Command 

CIRCLE 



GLOCATE 



Draws a circle, arc, semicircle, etc. 

Sets the Graphics Cursor and the direction 
for putting characters on the Graphics 
Screen. 

Graphics Screen into an array for future 

Draws a line from the startpoint to the 
endpoint in the specified line style and 
color. Also creates a box. 

Paints an area, starting from a specif ied 

Sets an individual dot (pixel) OFF (or 
ON). 



LINE 

PAINT •';;•• 

PRESET 

PRINT #-3 
PSET 

PUT 

SCREEN 
VIEW 



Sets an individual dot (pixel) ON (or 
OFF) . 

Graphics Screen. 

Selects the Graphics or Text Screen. 



current Graoh 
Table 1 



wrjoyf* whi <""*h Hapaikiiac! l*hA 
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BASICG Functions 
Function Description 



&POINT Returns the OFF/ON color value of a 
pixel. 




Table 2 



Starting-Dp 

Before using the diskette included with this package, be 
sure to make a "safe copy" of it. See your Model III Disk 
System Owner's Manual for information on BACKUP. 

To load BASICG: 

1. Power up your System according to the start-up procedure 
in your Model III Disk System Owner's Manual. 

2. Insert the backup diskette into Drive J2f. 

3. Initialize the System as described in the "Operation" 
section of the Model III Disk System Owner 1 s Manual. 

4. When TRSDOS Ready appears , type: 

BASICG <ENTER> 

The Graphics BASIC start-up prompts , followed by the READY 
prompt (>), appear and you are in Graphics BASIC. You can 
now begin BASICG programming. 
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Remember that Model III numeric values are as follows: 



Model III Numeric Values 



Numeric 
Type 



Range 



Storage 
Requirement 



Example 



Integer 

Single- 
Precision 



-32768, 32767 
■+l*10 i * f +l***"' 381 



2 bytes 240, 639, -10 
4 bytes 22. 50, 3.14259 






-100.001 



Double- 
Precision 



8 bytes 1230000*00 

3.1415926535897932 



Up to 7 significant 
digits (Prints six) 

-1*1*^-1*10-38 
+l*10 Jb ,+l*10~ Jb 
Up to 17 significant 
digits (Prints 16) 



Table 3 



With each BASICG command or function, there are various 
options which you may or may not include in a program 
statement (depending on your needs). Each option is 
separated from the previous option by a delimiter, usually a 
comma. When you do not specify an available option (e.g., 
you use the default value) and you specify subsequent 
options, you must still enter the delimiter or a Syntax 
Error will result. (See your Model III Operation and BASIC 
Language Reference Manual for more information). 

Because you are dealing with two distinct screens, the 
Graphics Screen and the Text Screen, we strongly urge you to 
read the description of the SCREEN command before 
continuing. 
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CIRCLE 

Draws Circle, Semicircle, Ellipse, Arc, Point 

(x,y) specifies the centerpoint of the figure, x 
r specifies the radius of the figure m pixels and 

and is a integer expression of either 
(OFF/black) or 1 (ON/white) . c is optional; 

is a numeric expression from to 6.2oii83. 
start is optional; if omitted, is used. 

The CIRCLE command lets you draw five types of figures: 

CD 





Circle Ellipse Arc Pie-Slice Point 

Figure 4. Types of Displays with CIRCLE 

With CIRCLE, you can enter values for PI (and 2 x PI) up to 
37 significant digits without getting an overflow error. 

3.1415 926535897932384626433832795028841 
6.283185307179586476925 2867665590057682 
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However f you'll probably only be able to visually detect a 
change in the circle's start and end when PI is accurate 
to a few significant digits (e.g., 3.1, 6.28, etc.). The 
start and end values can't be more than 2 x PI (e.g., 
6.2832 will not work) or an Illegal Function Call error will 
occur. 



Centerpoint 

The ( x,y ) coordinates in the CIRCLE statement specify the 
centerpoint of the figure, x and ^ are numeric 
expressions in the integer number range. 



Example 

CIRCLE (XjlY* ,r 
CIRCLE (320, 120), r 

Center 




Figure 5. Center of Circle 



r 
Radius 

The radius of a circle is measured in pixels and is a 
numeric expression in the integer range. Radius is the 
distance from the centerpoint to the edge of the figure. 
Although a negative value will be accepted by BASICG, the 
results of using a negative value are unpredictable. 

The radius is either on the X-axis or Y-axis, depending on 
the aspect ratio (see ar ) . If the aspect ratio is greater 
than 1, the radius is measured on the Y-axis. If the aspect 
ratio is less than or equal to 1, the radius is measured on 
the X-axis. 
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Example 

10 CIRCLE ( 3 20, 120) ,100 



This example draws a circle. The radius is 100 and the 
centerpoint is (320,120). 



c 
Color 



You can set the ON/OFF (white/black) color of a figure's 
border and radius lines (see start/end) by specifying a 
numeric value of 1 or 0. 

If you omit color, BASICG uses 1 (ON/white). 




Border 



Figure 6, Border of Circle 

start/end 
Startpoint/Endpoint of Circle 

The range for start and end is to 6.283185 (2 x PI). 

If you do not enter start and end , the default values of 
and 6.28 respectively, are used. 

A negative start or end value will cause the respective 
radius to be drawn in addition to the arc (i.e., it will 
draw a "piece of the pie"). The actual start and endpoints 
are determined by taking the absolute value of the specified 
start and endpoints. These values are measured in radians. 

Note: Radius will not be drawn if start or end is -0. 
To draw a radius with start or end as 0, you must use 
-0.000. . .01. 



Radio /hack 



-18- 



Computer Graphics 



Operation Manual 



12:00 



9:00 




3:00 



6:00 



Figure 7. Clock/Radian Equivalents 



Degrees 


Radians 


Clock Equivalent 








3:00 


90 


1.57 


12:00 


180 


3.14 


9.00 


270 


4.71 


6:00 


360 


6.28 


3:00 



Table 4. Degree/Radians/Clock Equivalents 



You can draw semicircles and arcs by varying start and 
end. If start and end are the same, a point (one 
pixel) will be displayed instead of a circle. 



end 



Radius 



Center 




start 



Figure 8. CIRCLE'S (-) start , (-) end 
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You can have a positive start and a negative end (or 
vice versa) as well as negative starts and end s. In 
these cases, only one radius line is drawn. 



Start 



Arc 




end 



Center ' Radius 



Figure 9 # CIRCLE'S (+) start , (-) end 



Hints and Tips about start and end: 



When using the default values for start and end y 
you must use commas as delimiters if you wish to add 
more parameters # 

If you use PI, it is not a reserved word in BASICG and 
must be defined in your program. 



ar 

Aspect Ratio 

You can draw ellipses by varying the aspect ratio from the 
default value (.5) for a circle (and semicircle). 

Every ellipse has a "major axis" which is the ellipse's 
longer, predominant axis. With an ellipse (as with a 
circle), the two axes are at right angles to each other. 

The mathematical equation for determining the aspect ratio 
is : 

ar - length of Y-axis/length of X-axis 

If the aspect ratio is .5, a circle is drawn. 

If the ratio is less than .5, an ellipse with a major 

axis on the X-axis is drawn. 

If the ratio is greater than .5, an ellipse with a major 

axis on the Y-axis is drawn. 
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y 



X -* 




X -**- 



X-Axis Ellipse (ar < .5) Y-Axis Ellipse {ar > .5) 

Figure 10* CIRCLED Ellipse 



range for aspect ratio is a single-precision 
iting-point number greater than 0.0 (to 1*10 ). 



The 

floating-point number greater 

Although a negative value will be accepted by BASICG, the 

results of using a negative value are unpredictable. 



Hints and Tips about aspect ratio: 

Entering .5 as the ratio produces a circle. 

Numbers between and .5 produce an ellipse with a 

major axis on X, 

Numbers over .5 generate an ellipse with a major axis 

on Y. 

Even though you can enter large aspect ratios , large 

numbers may produce straight lines. 



Examples 



CIRCLE (320, 120), 90,1 



This example draws^a white-bordered circle with the 
centerpoint of (320,120) and radius of 90. 



CIRCLE (320, 120), 90,1, , , .1 

This statement draws a white-bordered ellipse with an origin 
of (320,120) and radius of 90. The major axis is the 
Y-axis. 
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CIRCLE (320, 120), 90, 1,-6. 2, -5 

This statement draws an arc with a vertex ("origin") of 
(320,120) and radius of 90. start is 6.2 and end is 5. 
Radius lines are drawn for start and end. 



CIRCLE (320, 120), 90,1,, -4 

This example draws an arc with a vertex of (320,120) and 
radius of 90. start is and end is 4. A radius line is 
drawn for end. 



10 PI=3. 1415926 

20 CIRCLE (320, 120), 100,1, PI, 2*PI,. 5 

A semicircle is drawn. 



10 CIRCLE (150, 100), 100, 1,-5,-1 
20 CIRCLE (220, 100), 100, 1,5,1 

Two arcs are drawn with the same start and end point. 
The arc with the negative start and end has two radius 
lines drawn to the vertex. The arc with a positive start 
and end has no radius lines. 



CIRCLE (320, 120), 140, ,-4, 6.1 

This statement draws an arc with a vertex at (320,120) and a 
radius of 140. Start is 4 and end is 6.1. A radius line 
is drawn for start. 



CIRCLE (320, 120), 140, 1,0,1, .5 

This example draws an arc with a vertex of (320,120) and 
radius of 140. 



Sample Program 
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4 SCREEN 

5 CLR 

10 FOR X=10 TO 200 STEP 10 

20 CIRCLE <300,100),X,1, ,,.9 

30 NEXT X 

40 FOR Y=10 TO 200 STEP 10 

50 CIRCLE (300,100),Y,l,,,.l 

60 NEXT Y 

70 FOR Z=10 TO 200 STEP 10 

80 CIRCLE (300,100),Z,1,,,.5 

90 NEXT Z 

100 GOTO 5 

A set of 20 concentric ellipses is drawn with a major axis 
on Y f a set of 20 concentric ellipses is drawn with a major 
axis on X f and a set of 20 concentric circles is drawn. The 
ellipses and circles in each of the three groups are 
concentric and the radius varies from 10 to 200. 



CLR 

Clears the Graphics Screen 






iR 






CLR clears the Graphics Screen. 

Example 

10 SCREEN 

20 CIRCLE(320, 120), 100,1 

This program line will draw a circle. Now type: 

CLR <ENTER> 

and the Graphics Screen will be cleared but the Text Screen 
will remain unchanged. This can be seen by typing: 

SCREEN 1 



Radio /tiaek 



■23- 



Computer Graphics Operation Manual 

® 



GET 

Reads the Contents of Rectangular Pixel Area into Array 

( xl,yl ) are coordinates of one of the QE^osing 
corners of a rectangular pixel area* xl is an 
integer expression from to 639, yl Ts an 



IiB^M 



integer expression from to 239. 

that will store the rectangular area's con tents ^ 

Important Note: BASICG recognizes two syntaxes of the 
command GET — the syntax described in this manual and the 
syntax described in the Model III Operation and BASIC 
Language Reference Manual. BASIC recognizes only the GET 
syntax described in the Model III Operation and BASIC 
Language Reference Manual. 

GET reads the graphic contents of a rectangular pixel area 
into a storage array for future use by PUT (see PUT). 

A rectangular pixel area is a group of pixels which are 
defined by the diagonal line coordinates in the GET 
statement. 

The first two bytes of array name are set to the 
horizontal (X-axis) number of pixels in the pixel area; the 
second two bytes are set to the vertical (Y-axis) number of 
pixels in the pixel area. The remainder of array name 
represents the status of each pixel, either ON or OFF, in 
the pixel area. The data is stored in a row- by-row format. 
The data is stored 8 pixels per byte and each row starts on 
a byte boundary. 

Array Limits 

When the array is created, BASICG reserves space in memory 
for each element of the array. The size of the array is 
limited by the amount of memory available for use by your 
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program — each real number in your storage array uses four 
memory locations (bytes ) . 

The array must be large enough to hold your graphic display 
and the rectangular area must include all the points you 
want to store. 

Your GET rectangular pixel area can include the entire 
screen (i.e., GET(J0 ,J0)- (639 , 239 ) , array name), if the array 
is dimensioned large enough. 

To determine the minimum array size: 

1. Divide the number of X-axis pixels by 8 and round up to 
the next higher integer. 

2. Multiply the result by the number of Y-axis pixels. 

When counting the X-Y axis pixels, be sure to include the 
first and last pixel. 

3 . Add four to the total . 

4. Divide by four (for real numbers) or two (for integers) 
rounding up to the next higher integer. 

The size of the rectangular pixel area is determined by the 
( x,y ) coordinates used in GET: 

Position: upper-left corner = startpoint = (xl,yl) 

lower-left corner = endpoint = (x2,y2) 

Size (in pixels): width = x2-xl+l 

length = y2-yl+l 



Example 

GET(10,10)-(8j2f,50),V 

This block is 71 pixels wide on the X-axis (10 through 80) 
and 41 long on the Y-axis (10 through 50). 

. For real: 71/8 = 9 * 41 = 369 + 4 = 373/4 - 94 
. For integer: 71/8 = 9 * 41 = 369 + 4 = 373/2 = 187 

Depending on the type of array you use, you could set up 
your minimum-size dimension statement this way: 

. Real DIM V(93) 
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or 



Integer DIM V%(186) 



Examples 

10 DIM VC249) 

20 CIRCLE (65 ,45), 20,1 

30 GET (10,10)-(120,80),V 

An array is created, a circle is drawn and stored in the 
array via the GET statement's rectangular pixel area's 
parameters (i.e., (10,10)- (120,80) ) . 

Calculate the dimensions of the array this way: 

Rectangular pixel area is 111 x 71. That equals: 

111/8= 14 * 71 =994 + 4 = 998/4 = 250 



(10,10) 



Rectangular 

Pixel 

Area 




(10,80) 



(120,10) 



(120,80) 



Figure 11 



10 DIM V(30,30) 

20 CIRCLE (50, 50), 10 

30 GET (10,10)-(80,80),V 



A two-dimensional array is created, a circle is drawn and 
stored in the array via the GET statement's rectangular 
pixel area's parameters (i.e., (10, 10)-( 80,80) ) . 
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(10,10) 



Rectangular 

Pixel 

Area 




(80,80) 



Figure 12 



10 DIM V%(564) 

20 CIRCLE (65, 45), 50, 1,1, 3 

30 GET(10,10)-(120,80),V% 



A one-dimensional integer array is created, an arc is drawn 
and stored in the array via the GET statement's rectangular 
area's parameters. 



GLOCATE 

Sets the Graphics Cursor 




Since the Text Screen and the Graphics Screen cannot be 
displayed at the same time, you need an easy way to display 
textual data on the Graphics Screen. GLOCATE provides part 
of this function by allowing you to specify where on the 
Graphics Screen to start displaying the data, (x^y) , and 
which direction to display it — direction. 
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The allowable values for direction are: 

- zero degree angle 

1 - 90 degree angle 

2 - 180 degree angle 

3 - 270 degree angle 



Examples 

10 GLOCATE (320,120),0 

This program line will cause characters to be displayed 
starting in the center of the screen in normal left-to-right 
orientation. 

100 GLOCATE (320,10),1 

This program line will cause characters to be displayed 
starting in the center of the top portion of the screen in a 
vertical orientation , going from the top of the screen to 
the bottom of the screen. 



200 GLOCATE ( 630,120 ) , 2 

This program line will cause characters to be displayed 
upside down starting at the right of the screen and going 
towards the left. 



300 GLOCATE (320, 230), 3 

This program line will cause the characters to be displayed 
vertically, starting at the center of the lower portion of 
the screen going towards the top of the screen. 
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LINE 

Draws a Line or Box 



LINE ( xl,yl )-( x2,y2 ), c, B or BF, style 



( xl,yl ) specifies the starting coordinates 
line and is a pair of integer expressions. 
( xl,yl ) is optional; if omitted, the last ending 
coordinates of any previous command are used as 
the startpolnt. If a command has not been 

( x2,y2 ) specifies the ending coordinates of a line. 

( x2,y2 ) is a pair of integer expressions. 
c specifies the color and is a numeric expression 
~" of either or 1. c is optional; if omitted, 1 

(solid white or solid black) a box. B draws a box 

style is the setting for the pattern of a line and 
is a numeric value in the integer range, style 

LINE draws a line from the starting point ( xl,yl ) to the 
ending point ( x2,y2 ) . 

If the starting point is omitted, either (0,0) is used if a 
previous end coordinate has not been specified or the last 
ending point of the previous command is used. If one or both 
parameters are off the screen, only the part of the line 
which is visible is displayed. 

With over 65,500 line styles possible, each style is 
slightly different. You'll find it's almost impossible to 
detect some of the differences since they are so minute. 



LINE with Box Option 

The start and end coordinates are the diagonal 
coordinates of the box (either a square or rectangle). When 
you don't specify the B or BF options, the "diagonal" 
line is drawn. When you specify the B option, the 
perimeter is drawn but not the diagonal line. When you 
specify the BF option, the perimeter is drawn, and the 
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area bounded by the perimeter is shaded in the specified 
color (c) . 

LINE (140, 80)- (500, 200 ),1,B 
(140,80) 




Figure 13 



(500,200) 



style 

style sets the pixel arrangement in 16-bit groups. 

For example, 0000 1111 0000 1111 (binary), 0F0F (hex), or 
3855 (decimal) . 

style can be any number in the integer range (negative or 
positive). Using hexadecimal numbers, you can figure the 
exact line style you want. There will always be four numbers 
in the hexadecimal constant. 

To use hexadecimal numbers for style : 

1. Decide what pixels you want OFF (bit=0) and ON (bit=l). 

2. Choose the respective hexadecimal numbers (from the Base 
Conversion Chart, Appendix E) . 

Example 

0000 1111 0000 1111 = &H0F0F 
Creates a dashed line. 
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Type 
Long dash 
Short dash 
"Short-short" dash 
Solid line 
OFF/ON 
"Wide" dots 
Medium dots 



Binary Numbers 
0000 0000 1111 1111 

0000 mi 0000 1111 

1100 1100 1100 1100 



Hex Numbers 

&H00FF 
&H0F0F 
&HCCCC 



1111 1111 1111 1111 SHFFFF 

0101 0101 0101 0101 &H5555 

0000 1#00 0000 1000 &H0808 

1000 1000 1000 1000 &H8888 

Table 5. Sample Line Styles 



Examples 



LINE -(100,40) 



This example draws a line in white (ON) starting at the last 
endpoint used and ending at (100,40). 



LINE (0,0)-(319,199) 

This statement draws a white line starting at (0,0) and 
ending at (319,199). 



LINE ( 100 , 100 ) - ( 200 , 200 ) , 1 , , 45 

This example draws a line from (100,100) to (200,200) using 
line style 45 (&H002D). 

LINE ( 100 , 100 ) - ( 300 , 200 ) , 1 , , &H00FF 

This LINE statement draws a line with "long dashes." Each 
dash is eight pixels long and there are eight blank pixels 
between each dash. 
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LINE (100, 100)-(300, 200), 1,, -1000 

This statement draws a line from (100,100) to (300,200) 
using line style -1000. 



LINE (200,200)-(-100,100) 

A line is drawn from the startpoint of (200,200) to 
(-100,100). 



10 LINE (30,30)-(180,120) 
20 LINE -(120,180) 
30 LINE -(30,30) 

This program draws a triangle. 



10 LINE -(50,50) 
20 LINE -(120,80) 
30 LINE -(-100,-100) 
40 LINE -(3000,1000) 

This program draws four line segments using each endpoint as 
the startpoint for the next segment. 
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PAINT 

Paints Screen 



PAINT (x^) / tiling , border , back 



111 



painting is to begin, x is a numeric expression 
from | to 639 and £ is a numeric expression from 

tiling specifies the paint style and can be a 

be a null string ("") and no more than 64 bytes 

expression of either (OFF) or 1 (ON), border 

PAINT shades the Graphics Screen with tiling starting at 
the specified X-Y coordinates, proceeding upward and 
downward. 



Paint Startpoint 

x,y_ is the coordinate where painting is to begin and 
must: 

Be inside the area to be painted. 

Be on the working area of the screen. 

For example: 

10 CIRCLE (320, 120) ,80 
20 PAINT(320,120),1,1 

A circle with a centerpoint of (320,120) is drawn and 
painted in white. 
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tiling 
Paint Style 

tiling is the pattern in a graphics display. By specifying 
each pixel, you can produce a multitude of tiling styles 
thereby simulating different shades of paint on the screen. 

t f lin ? is convenient to use in bar graphs, pie charts, 
etc., or whenever you want to shade with a defined pattern. 

There are two types of tiling ; 

Numeric expressions 
Strings 

Numeric Expressions. There are only two numeric 
expressions that can be used for the paint style — and 1 

t P a ^ nt f. a11 P ixels ON (solid white) and paints all pixels 
OFF (solid black) . 

To use numeric expressions, enter either a or 1. For 
example: 

PAINT (320,120), 1,1 

Strings (Point-by-Point Painting). You can paint precise 
patterns using strings by defining a multi-pixel grid, 
pixel -by-pixel, on your screen as one contiguous pattern. 

String painting is called "pixel" painting because you are 
literally painting the screen "pixel-by-pixel" in a 
predetermined order. 

You can define the tile length as being one to 64 vertical 
tiles, depending on how long you want your pattern. Tile 
width, however, is always eight horizontal pixels (8 pixels 
representing one 8-bit byte). The dimensions of a tile 
pattern are length by width. Tile patterns are repeated as 
necessary to paint to the specified borders. Because of its 
symmetry, you'll probably find equilateral pixel grids most 
convenient. 
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Figure 14. Example of an 8-by-8 Pixel Grid 

Strings allow numerous graphic variations because of the 
many pixel combinations you can define. 

Important Note: You cannot use more than two consecutive 
rows of tiles which match the background or an Illegal 
Function Call error will occur. For example: 

PAINT (1,1) f CHR$(&HFF)+CHR$(&HFF)+CHR$(&Hje(jZf)+CHR$(&Hje(0) 
+CHR$(&Hj30)+CHR$(&Hje(j2f) f l f CHR$(&H00) 

returns an Illegal Function Call error. 



Using Tiling 

You may want to use a sheet of graph paper to draw a style 
pattern. This way, you'll be able to visualize the pattern 
and calculate the binary and hexadecimal numbers needed. 

Note: Tiling should only be done on either a totally black 
or white background; otherwise, results are unpredictable. 

To draw an example of a tile on paper: 

1. Take a sheet of paper and draw a grid according to the 
size you want (8 x 8, 24 x 8, etc.). Each boxed area 
on this grid, hypothetically , represents one pixel on 
your screen. 

2. Decide what type of pattern you want (zigzag, diagonal 
lines, perpendicular lines, etc. ) . 

3. Fill in each grid in each 8-pixel-wide row of the tile 
if you want that pixel to be ON, according to your 
pattern. If you want the pixel to be OFF, leave the 
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grid representing the pixel blank. 

4. On your paper grid, count each ON pixel as 1 and each 
OFF pixel as 0. List the binary numbers for each row 
to the side of the grid. For example, you might have 
0001 1000 on the first row, 0111 0011 on the second 
row, etc. 

5. Using a hexadecimal conversion chart, convert the 
binary numbers to hexadecimal numbers. (Each row 
equates to a two-digit hexadecimal number.) 

6. Insert the hexadecimal numbers in a tile string and 
enter the string in your program. 

Note: For a listing of commonly used tiling styles, see 
Appendix F. 



Example 

For example, if you're working on an 8 x 8 grid and want to 
draw a plus ("+") sign: 
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Figure 15 



Tile string: 
A$-CHR$(&H18)+CHR$(&H18)+CHR$(&H18)+CHR$(&HFF)+CHR$(&HFF) 

+CHR$ ( &H18 )+CHR$ (&H18 )+CHR$ ( &H18 ) 



b 
Border 

Border is the OFF/ON color of the border of a graphics 
design where painting is to stop and is a numeric expression 
of either or 1. If omitted, 1 (ON) is used and all the 
pixels on the border are set (solid white). 



background 
Background Area 

Background is a 1-byte character which describes the 
background of the area you are painting. CHR$(&H00) 
specifies a black background and CHR$(&HFF) is a totally 
white background. If background is not specified, BASICG 
uses CHR$(&Hj2f0). 

Painting continues until a border is reached or until PAINT 
does not alter the state of any pixels in a row. However, if 
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pixels in a given row are not altered and the tile that was 
to be painted in that row matches the background tile, 
painting will continue on to the next row. 

Note: BASICG uses Free Memory for tiling. 

Examples 

10 CIRCLE (300,100) ,100 
20 PAINT (300,100), 1,1 

Paints the circle in solid white. 



10 CIRCLE (100, 100), 300 
20 PAINT (100, 100), 1,1 

Paints the circle. Only the visible portion of the circle 
is painted on the screen. 



5 A=l 

6 SCREEN 

10 CIRCLE (320, 120), 100 
20 CIRCLE (100, 100), 50 
30 CIRCLE (400, 200), 60 
40 CIRCLE (500, 70), 50 
50 PAINT (320, 120), A, 1 
60 PAINT ( 100, 100), A, 1 
70 PAINT ( 400, 200), A, 1 
80 PAINT (500, 70), A, 1 

The tiling style is assigned the value 1 in line 5 (A=l) for 
all PAINT statements. Four circles are drawn and painted in 
solid white. 



10 LINE (140,80)-(500,200),1,B 

20 PAINT (260,120),CHR$(&HEE)+CHR$(&H77)+CHR$(jef0),l 

Paints box in specified tiling style using strings. 

10 CIRCLE (300, 100), 100 
20 PAINT (300,100),"D",1 

This example uses a character constant to paint the circle 
in vertical black and white stripes. The character "D" (0100 
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0100) sets this vertical pattern: one vertical row of pixels 
ON, three rows OFF. 

10 CIRCLE (320, 120), 200 

20 PAINT (320, 120), "332211", 1 

30 PAINT (100,70),"EFEF",1 

This example draws and paints a circle, then paints the area 
surrounding the circle with a different paint style (line 
30). This PAINT statement's (line 30) startpoint must be 
outside the border of the circle. 

10 PAINT (320,120),CHR$(&HFF),1 

20 CIRCLE (320, 120), 100,0 

30 PAINT (320,120),CHR$(0)+CHR$(&HFF),0,CHR$(&HFF) 

Paints the screen white, draws a circle and paints the 
circle with a pattern. 

10 PAINT (320,120),CHR$(&HFF),1 

20 CIRCLE (320, 120), 100,0 

30 PAINT (320,120),CHR$(0)+CHR$(&HAA),0,CHR$(&HFF) 

Paints the screen white, draws a circle and paints the 
circle with a pattern. 

10 CIRCLE (300, 100), 100 

20 A$=CHR$(&H00)+CHR$(&H7E)+CHR$(&H18)+CHR$(&H18)+CHR$(&H18) 

+CHR$ ( &H18 ) +CHR$ ( &H18 ) +CHR$ ( &H00 ) 
30 PAINT (300, 100 ),A$,1 

This draws the circle and paints with the letter T within 
the parameters of the circle. 

10 A$=CHR$ (&H41 )+CHR$ (&H22 )+CHR$ (&H14 )+CHR$ (&H08 )+CHR$ (&H14 ) 

+CHR$ ( &H22 ) +CHR$ ( &H41 ) +CHR$ ( &H00 ) 
20 PAINT (300,100),A$, 1 

This paints Xs over the entire screen. 
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1 CLEAR 100 

5 SCREEN 

10 TILE$(0)=CHR$(&H22)+CHR$(&H00) 

20 TILE$(1)=CHR$(&HFF)+CHR$(&H00) 

30 TILE$(2)=CHR$(&H99)+CHR$(&H66) 

40 TILE$(3)=CHR$(&H99) 

50 TILE$(4)=CHR$(&HFF) 

60 TILE$ ( 5 )=CHR$ ( &HF0 ) +CHR$ ( &HF0 ) +CHR$ ( &H0F ) +CHR$ ( &H0F ) 

70 TILE$ ( 6 ) =CHR$ ( &H3C ) +CHR$ ( &H3C ) +CHR$ ( &HFF ) 

80 TILE$ ( 7 ) =CHR$ ( &H03 ) +CHR$ ( &H0C ) +CHR$ ( &H30 ) +CHR$ ( &HC0 ) 

90 A$=TILE$ (0 ) +TILE$ ( 1 ) +TILE$ ( 2 ) +TILE$ ( 3 ) +TILE$ ( 4 ) 

+TILE$ ( 5 ) +TILE$ ( 6 ) +TILE$ ( 7 ) 
100 PAINT (300, 100 ),A$,1 

This example paints the screen with a tiling pattern made up 
of eight individually defined tile strings (0-7). 



&POINT (function) 

Returns Pixel Value 



&PQINT( x,y ) 






;: ': : "^ ^ "-"'A^^-'^>,v : .%?■'>' ^-X^ii"' 1 ' ,' - '■"' '■' ;■■;■■;"■„!. y'}'."' ■■■&' .■'■" "'i-v ■v.'- 5 ..;." j. -'■;■■'■ v " "■ "'.■:■■ ■■ .'-..'■■ ''-■■' z. 1 ' ~ ' ■. . ■ ' "* 

expression. - : 
\X specifies an Y-coordinate and is an integer 



'.'.■.'■ I (pixel ON) 

The &POINT command lets you read the OFF/ON value of a pixel 
from the screen. 

Values for &POINT that are off the screen (i.e., PRINT 
&POINT (800,500)) return a -1, signifying the pixel is off 
the screen. 



Example 



10 PSET(300,100),1 

20 PRINT &POINT( 300,100) 
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Reads and prints the value of the pixel at the point's 
coordinates {300,100) and displays its value: 1. 

PRINT &POINT( 3000, 1000) 
Since the pixel is off the screen, a -1 is returned. 

PRINT &POINT( -3000, -1000) 
Since the pixel is off the screen, a -1 is returned. 

PSET(200,100),jel 
PRINT & POINT (200, 100) 

Reads and prints the value of the pixel at the point's 
coordinates (200,100) and displays its value: 0. 

10 PSET(300,100),1 

20 IF &POINT(300,100)=1 THEN PRINT "GRAPHICS BASIC!" 

Sets the point ON. Since the point's value is 1, line 20 is 
executed and Graphics BASIC is displayed: 

GRAPHICS BASIC! 



5 SCREEN 

10 PSET(RND(640),RND(240)),1 

20 IF &POINT(320,120)=1 THEN STOP 

30 GOTO 10 

Sets points randomly until (320,120) is set, 



5 CLR 

10 LINE(50,80)-(120,100),1,BF 

20 PRINT & POINT (100, 80) 

30 PRINT &POINT(110,80) 

40 PRINT &POINT(115,90) 

50 PRINT &POINT(50,40) 

60 PRINT &POINT(130,120) 

The first three pixels are in the filled box, so the value 1 
(one) is displayed for each of the statements in lines 20, 
30, and 40. The pixels specified in lines 50 and 60 are not 
in the shaded box and 0s are returned. 
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PRESET 

Sets Pixel OFF (or ON) 

fRBSET(!,y ) , switch 



x specifies an X-coordinate and is an integer 

'expression. •';■'■:■■ 

X specifies an Y-coordinate and is an integer 



©xpiTGssxon • 



switch is optional ; if omitted, (OFF) is used. 

PRESET sets a pixel either OFF (0) or ON (1), depending on 
switch . If switch is not specified, (OFF) is used. 

Values for (x^) that are larger than the parameters of 
the screen (i.e., greater than 639 for x and 239 for £) 
are accepted, but these points are off the screen and 
therefore are not PRESET. 

Note: The only choice for switch is or 1. If you enter 
any other number, an Illegal Function Call error will 
result. 



Examples 



10 PRESET (50,50),1 
20 PRESET (50,50) ,0 



Turns ON the pixel located at the specified coordinates (in 
line 10) and turns the pixel OFF (in line 20). 

10 PRESET (320, 120), 1 

20 PRESET (300,100),1 

30 PRESET (340,140) ,1 

40 FOR 1=1 TO 1000: NEXT I 

50 PRESET (320,120) 

60 PRESET (300,100) 

70 PRESET (340,140) 

80 FOR 1=1 TO 1000: NEXT I 
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Sets the three specified pixels ON (through the three PRESET 
statements), pauses, and then turns the three pixels OFF. 

PRESET (3000,1000) ,1 

The values for ( x,y ) are accepted, but since the 
coordinates are beyond the parameters of the screen, the 
point is not PRESET. 



PRINT #-3, 

Write Text Characters to the Graphics Screen 



f" " >5^-^^ ^■■/.-'■.- '■,.■'.";■■.■■■ . 

jst may be either string constants (messages 



constants (numbers), variables, or expressions 

items to be printed may be separated by commas or 
semicolons. If commas are used, the Cursor 

printed on the screen. In cases where no ambiguity 

PRINT #-3, is used to write text characters to the Graphics 
Screen. This is the easiest way to display textual data on 
the Graphics Screen. Characters are displayed starting at 
the current Graphics Cursor and going in the direction 
specified by the most recently executed GLOCATE command. If 
a GLOCATE command was not executed prior to the PRINT #-3, 
command, a direction of is assumed. 

PRINT #-3, will only print text characters (see Appendix C 
of the Model III Operation and BASIC Language Reference 
Manual). Each character displayed in the or 2 direction 
uses an 8 X 8 pixel grid; each character displayed in the 1 
or 3 direction uses a 16 X 8 grid. Executing this command 
will position the Graphics Cursor to the end of the last 
character that was displayed. 

Displaying text in direction engages a wraparound feature, 
If the end of a line is reached, BASICG will continue the 
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display on the next line. If the end of the screen is 
reached, BASICG will continue the display at the beginning 
of the screen without scrolling. If there is not enough room 
to display at least one character at the current Graphics 
Cursor , an Illegal Function Call error will result. When 
displaying text in other directions f an attempt to display 
text outside of the currently defined screen will cause an 
Illegal Function Call er.ror to be given. 



PSET 

Sets Pixel ON (or OFF) 



x specifies an X-coordinate and is an integer 

'fef;:*4'tp$^ ■'_■■■■■■■■. '..■V ■'»■.- \r '.A-.. , 

X specifies an Y-coor.dinate and is an integer 

expression. 
switch specifies a pixel 1 s OFF/ON color code and is 

a numeric expression of (OFF) or 1 (ON). 

switch is optional; if omitted, 1 (ON) is us€*<3L 



PSET sets a pixel either OFF (0) or ON (l) f depending on 
switch . If switch is not specified, 1 (ON) is used. 

The only choice for switch with PSET is and 1. If you 
enter any other number, an Illegal Function Call will occur. 

Values for ( x,y ) that are larger than the parameters of 
the screen (i.e., greater than 639 for x and 239 for %) 
are accepted, but these points are off the screen and 
therefore are not PSET. 

Note: The only distinction between PRESET and PSET in BASICG 
is the default value for switch . The default value for 
PRESET is 0, while the value for PSET is 1. 

Examples 

10 A=l 

20 PSET (50,50), A 

Turns the pixel located at the specified coordinates ON. 
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10 PSET (RND(640),RND(240)),1 
20 GOTO 10 

Pixels are randomly set to 1 (ON) over the defined area (the 
entire screen) . 



PSET {-300 ,-200) ,1 

The values for ( x,y ) are accepted, but since it is beyond 
the parameters of the screen, the pixel is not set. 

10 PSET (320, 120), 1 

20 A$=INKEY$: IF A$= "" THEN 20 

30 PSET(320,120),0 

Line 10 sets ("turns ON") a pixel; line 30 resets ("turns 
OFF") the same dot. 
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PUT 

Puts Rectangular Pixel Area from Array onto Screen 



which is to contain a graphic display, xl is a 
array name is the name of an array (previously 



.';;'■'.' ■'' , ' " .■ iT'v'S'U JL' : V #' :■■';'..' "i ■■■■■■■=■;'■■;■■-■■.■ ..,..,.„,_....;...;..„... ..... . ,., : „.^ 



Important Note: BASICG recognizes two syntaxes of the 
command PUT — the syntax described in this manual and the 
syntax described in the Model III Operation and BASIC 
Language Reference Manual. BASIC recognizes only the PUT 
syntax described in the Model III Operation and BASIC 
Language Reference Manual. 

The PUT function puts a rectangular pixel area stored in an 
array, and defined by GET, onto the screen. GET and PUT work 
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jointly. Together, they allow you to "get" a rectangular 
pixel area which contains a graphic display, store it in an 
array, then "put" the array back on the screen later. 

Remember that before you GET or PUT, you have to create an 
array to store the bit contents of the display rectangular 
pixel area. The size of the array must match that of the 
display rectangular pixel area. 

PUT moves your GET rectangular pixel area to the startpoint 
in your PUT statement and the startpoint is the new upper- 
left corner of the rectangular pixel area. 

To illustrate: 

5 DIM V(3) 

10 GET (2,3)-(7,7),V 

100 PUT (50,50),V,PSET 

After GETting, PUT this rectangular pixel area to (50,50). 
The new coordinates are: 

(50.50) (51,50) (52,50) (53,50) (54,50) (55,50) 

(50.51) (51,51) (52,51) (53,51) (54,51) (55,51) 

(50.52) (51,52) (52,52) (53,52) (54,52) (55,52) 

(50.53) (51,53) (52,53) (53,53) (54,53) (55,53) 

(50.54) (51,54) (52,54) (53,54) (54,54) (55,54) 

The rectangular pixel area ( (50,50)- (55 ,54 ) ) is exactly the 
same pixel size as (2, 3)- (7,7); only the location is 
different. 
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(2,3) 



(7,3) 



"GET" ^ 

RECTANGULAR 

PIXEL 

AREA 



(27) 



(7,7) 



- ^ ^ (50,50) 


•-* ^ 




'"^- 


"PUT" 

RECTANGULAR 
PIXEL 
AREA 

"■* *^ ^ 


Figure 16 


(50,54) 





(55,54) 



With PUT, action can be PSET f PRESET, OR, AND, or XOR. 

These operators are used in BASICG to test the OFF/ON (or 
0/1) conditions of a pixel in the original pixel area and 
the destination pixel area. 

For example (using PSET), the pixel is set ON only if the 
bit in the PUT array is set ON. If the bit is OFF, the pixel 
is turned OFF (reset). 

With PRESET, the pixel is set ON only if the bit in the PUT 
array is set OFF. If the bit is ON, the pixel is turned OFF 
(reset) . 

Using OR, the pixel is set ON if the bit in the PUT array is 

ON or the corresponding pixel in the destination area is ON. 

In all other cases, the pixel is turned OFF (reset). In 
other words: 



OR 


OFF 


ON 


OFF 


OFF 


ON 


ON 


ON 


ON 



With AND, the pixel is set ON if both the bit in the PUT 
array and the corresponding pixel in the destination area 
are ON. In all other cases, the pixel is turned OFF (reset). 
In other words: 
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AND 


OFF 


ON 


OFF 


OFF 


OFF 


ON 


OFF 


ON 



Using XOR, the pixel is set ON if either the bit in the PUT 
array or the corresponding pixel in the destination area 
(but not both) is ON. In all other cases, the pixel is 
turned OFF (reset). In other words: 



XOR 


OFF 


ON 


OFF 


OFF 


ON 


ON 


ON 


OFF 



The following BASICG program will graphically illustrate the 
differences between the various action options. Since the program 
will give you a "hard- copy" printout of the action options, you 11 
need to connect your TRS-80 to a graphic printer. See Graphics 
Utilities" later in this manual for more details on using the 
Computer Graphics package with a printer. 
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10 DATA "OR", "AND", "PRESET", "PSET" 

20 CLR : SCREEN 

30 FOR Y= 10 TO 210 STEP 50 

40 FOR X= TO 400 STEP 200 

50 LINE (X+40,Y-5)-(X+100,Y+25),l,B 

60 NEXT X 

70 LINE (50,Y)-(90,Y+10),1,BF 

80 FOR X= 200 TO 400 STEP 200 

90 LINE (X+50,Y)-(X+70,Y+20),1,BF 

100 NEXT X 

110 NEXT Y 

120 DIM V(100) 

130 GET (50,10)-(90,30),V 

140 FOR N= 1 TO 5 

150 R= (N-l)*5+l 

160 READ A$ 

165 GLOCATE (136,R*10),0 

170 PRINT #-3, A$; 

175 GLOCATE (360,R*10),0 

180 PRINT #-3, *'= "; 

190 ON N GOTO 200, 210, 220, 230, 240 



"XOR" 



200 PUT (450,10), V,OR: 
210 PUT (450,60), V,AND: 
220 PUT (450,110), V, PRESET: 
230 PUT (450,160), V,PSET: 
240 PUT (450,210), V,XOR 
250 NEXT N 

260 CMD "I", "GPRINT" 
270 SCREENl 


GOTO 250 
GOTO 250 
GOTO 250 
GOTO 250 
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Figure 17 
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Hints and Tips about PUT: 

An Illegal Function Call error will result if you 

attempt to PUT a rectangular pixel area to a section of 

the screen which is totally or partially beyond the 

parameters of the screen. For example: 

GET(50,50)-(150,150),V 
PUT (200, 200 ),V, PSET 

returns an error because the rectangular pixel area 
cannot be physically moved to the specified rectangular 
pixel area (i.e., (200 ,200 > -(300, 300 ) ) . 

If you use PUT with a viewport (see VIEW), all 
coordinates must be within the parameters of the 
viewport or you'll get an Illegal Function Call error. 

Examples 

PUT with PSET 

10 DIM V%(63) 

15 SCREEN 

20 CIRCLE (30, 30), 10 

30 GET (10,10)-(40,40),V% 

40 FOR 1=1 TO 500: NEXT I 

50 CLR 

60 PUT (110, 110), V%, PSET 

70 FOR 1=1 TO 500: NEXT I 

In this example, the circle is drawn, stored, moved and re-created. 
First the white-bordered circle appears in the upper left corner of 
the screen (position (30,30) — program line 20). After a couple 
of seconds (because of the delay loop), it disappears and then 
reappears on the screen ~ (110,110) — program line 60. 

What specifically happened is: 

1. An array was created (line 10). 

2. A circle was drawn (line 20). 

3. GET — The circle which was within the source 
rectangular pixel area, as specified in the GET 
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statement's parameters is stored in the array (line 30), 

4. The screen is cleared (line 50). 

5. PUT — The circle from the array was PUT into the 
destination rectangular pixel area as specified in the 
PUT statement (line 60) with the PSET option. 

10 DIM V%(700) 
20 LINE (20,20)-(20,80) 
30 LINE (80,0)-(80,80) 
40 LINE (30,30)-(30,80) 
50 LINE (10,5)-(10,80) 
60 GET (0,0)- ( 100,100 ) ,V% 
70 FOR 1=1 TO 1000: NEXT I 
80 PUT (180, 120), V%, PSET 
90 FOR 1=1 TO 1000: NEXT I 

Draws four lines. GET stores the lines in the rectangular 
pixel area. PUT moves the lines to another rectangular 
pixel area. 



SCREEN 
Selects Screen 



r II Cpy^aon " 4*/*\ iica an J i e« s 
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SCREEN lets you set the proper screen. SCREEN selects the 
Graphics Screen; SCREEN 1 selects the Text Screen. Any value 
other than or 1 with SCREEN gives an error. 

SCREEN is convenient to use when you want to display either 
a Graphics Screen or a Text Screen. For example, you may 
have run a program and then added to it. With SCREEN, you 
can remove the graphics display, add to the program, and 
then return to the Graphics Screen. 

Whenever BASICG tries to display a character on the Text 
Screen (like in an INPUT or PRINT statement), the screen is 
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automatically set to the Text Screen, If the program is 

still running after executing the statement, BASICG will 

revert to the screen that was in effect prior to executing 
the statement . 



Examples 



10 SCREEN 1 

20 LINE (150f,150)-(200,200) 



The computer executes the short program but the Graphics 
Screen cannot display the graphics because of the SCREEN 1 
command. To display the line, type: SCREEN <ENTER>. 



10 CLR 

20 SCREEN 1 

30 LINE(10,10)-(255,191) 

40 LINE(j2f,191)-(255,jef) 

50 A$=INKEY$: IF A$=""THEN 50 

60 SCREEN 

10 A$=INKEY$: IF A$=""THEN 10 

80 GOTO 10 

The computer executes the program (draws two intersecting 

lines) but the screen cannot display the graphics because of 

SCREEN 1. By pressing any key, the graphics are displayed 
because of SCREEN 0. 



10 CIRCLE (200,100) ,100 
20 PAINT (200, 100), "44", 1 

Now run the program and type: 

SCREEN <ENTER> 

This command turns the Graphics Screen ON.. 
By entering the SCREEN 1 and SCREEN commands, you can 
alternately turn the Graphics Screen OFF and ON without 
losing the executed program display. 
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VIEW (command) 

Redefines the Screen (Creates a Viewport) 




3:1 

area. kX is < 



the upper-left corner of 
is an mteaer 



llltiiiil 



'M^.^}&^r;§ 



£2 is an integer expression >= vX arid <=239. 
£ specifies the color of the interior of the 

viewport and is an integer expression of either 

b specifies the border color of the viewport and is 

VIEW creates a "viewport" which redefines the screen 
parameters (0-639 for X and 0-239 for Y). This defined area 
then becomes the only place you can draw graphics displays. 

If you enter more than one viewport , you can only draw 
displays in the last defined viewport. 

Since VIEW redefines the SCREEN: 

CLR clears the interior of the viewport only. 

If you PSET or PRESET points, draw circles, etc., 

beyond the parameters of the currently defined 

viewport, only the portions that are in the viewport 

will be displayed. 

If you try to read a point beyond the viewport (with 

POINT), it will return a -1. 

You can only GET and PUT arrays within the viewport. 

You can't PAINT outside the viewport. 

The upper-left corner of the viewport is read as (0,0) (the 
"relative origin") when creating items inside the viewport. 
All the other coordinates are read relative to this origin. 
However, the "absolute coordinates" of the viewport, as they 
are actually defined on the Graphics Cartesian system, are 
retained in memory and can be read using VIEW as a function. 
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Every viewport has absolute and relative coordinates and 
graphic displays are drawn inside using the relative 
coordinates. For example: 

10 VIEW (100,100)-(200,200),0,1 
20 LINE (30 f 15)-(80,60),l 



(100,100) A.C. ,-— 
(0,0) R.C. 



(30,15) 



R.C. 



R.C. 



(80,60) 



(200,100) A.C, 
(100,0) R.C. 



(100,200) A.C. 
(0,100) R.C. 



(200,200) A.C. 
(100,100) R.C. 



Figure 18 

Note: After each of the following examples, you'll have to 
redefine the entire screen to VIEW(0,0)-(639,239 ) before 
performing any other Graphics functions. 



Examples 



VIEW (100,100)-(200,200),0,1 



Draws a black viewport (pixels OFF) that is outlined in 
white (border pixels ON). 

VIEW (100,100)- (200, 200 ),1,1 

Draws a white viewport (pixels ON) that is outlined in white 
(border pixels ON). 

VIEW (50,50)-(100,100),lf0 

Draws a white viewport (pixels ON) that is outlined in black 
(border pixels OFF). 
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10 VIEW (10,10)-(600,200),jEf,l 

20 VIEW (50,50)-(100,100),j0,l 

30 LINE (RND (500 ) ,RND( 190) )-(RND( 500) ,RND (190) ) 

40 GOTO 30 

First you defined a large viewport that almost covered the 
entire screen. Next you defined a smaller viewport. The 
Random command draws lines within the specified parameters 
but only the segments of the lines that are within the 
parameters of the smaller viewport are visible since it was 
specified last. 



10 VIEW(80,80)-(400,200),0,1 

20 VIEW(100,90)-(300,170),0,1 

30 VIEW(120,100)-(200,200),0,1 

40 VIEW(50,50)-(100,100),0,1 

Draws four viewports. All further drawing takes place in the 
last viewport specified. 

10 VIEW(210,80)-(420,160),0,1 

20 CIRCLE (300, 120) ,180,1 

30 LINE(15,15)-(60,60),1 

40 CIRCLE(90,40),50,1 

50 LINE(40,30)-(500,30),1 

Draws a viewport. Draws a circle but only a portion is 
within the parameters of the viewport. This circle's 
centerpoint is relative to the upper left corner of the 
viewport and not to the absolute coordinates of the graphics 
Cartesian system. A line is drawn which is totally within 
the parameters of the viewport. Another circle is drawn 
which is totally within the parameters of the viewport. 
Another line is drawn which is only partially within the 
parameters of the viewport. 

10 VIEW (190,70)-(440,180),0,1 
20 CIRCLE (300, 140), 170,1 
30 CIRCLE (100, 230), 400,1 
40 LINE (10,10)-(500,230),1 

Draws a viewport. A circle is drawn but only a portion is 
within the parameters of the viewport. Another circle is 
drawn and a larger portion is within the parameters of the 
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viewport. A line is drawn but only a segment is within the 
parameters of the viewport. 



&VIEW (function) 

Returns Viewport Coordinates 






is a integer expression between 0-3. returns 
the upper Y-coordinate . 2 returns the right 

&VIEW returns a corner coordinate of a viewport. It is 
important to note the parentheses are not optional. If you 
enter the &VIEW function without the parentheses, a Syntax 
Error will result. 

To display one of the four viewport coordinates, you must 
enter one of the following values for p: 

returns the upper left X-coordinate 

1 returns the upper left Y-coordinate 

2 returns the lower right X-coordinate 

3 returns the lower right Y-coordinate 

Important Note: When you have defined several viewports, 
&VIEW only returns the coordinates of the last-defined 
viewport. 



Examples 

Set up the following viewport: 

VIEW( 100, 80)- (220,150), 0,1 
Now type: PRINT &VIEW(0) <ENTER> 
Displays: 100 

Type: PRINT &VIEWQ) <ENTER> 

Displays: 80 
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Enter: 
Displays: 
Type: 
Displays : 



PRINT &VIEW(2) <ENTER> 

220 

PRINT &VIEWO) <ENTER> 

150 



Set up the following viewports: 

VIEW(100,80)-(220,150),0,1 <ENTER> 
VIEW(250,170)-(350,220),0,1 <ENTER> 



Now enter: 
Displays : 
Type: 
Displays: 
Now type: 
Displays: 
Type: 
Displays : 



PRINT &VIEW(0) <ENTER> 

250 

PRINT &VIEWC1) <ENTER> 

170 

PRINT &VIEW(2) <ENTER> 

350 

PRINT &VIEWC3) <ENTER> 

220 
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3/ Graphics Utilities 



There are six utilities included with the TRS-80 Computer 
Graphics package which are intended to be used as 
stand-alone programs. However, if you are an experienced 
programmer, you can use these with BASICG and FORTRAN. The 
source-code for each utility, that illustrate Graphics 
programming techniques, is listed later in this section. 

The Graphics Utilities let you: 

Save graphic displays to diskette. 

Load graphic displays from diskette. 

Print graphic displays on a graphics printer. 

Turn graphics display OFF or ON. 

Clear graphics memory. 

To use these utilities from BASICG, use the CMD"I" command 
followed by a comma and the name of the utility in quotation 
marks (e.g., CMD"I" , "GCLS" <ENTER> ) and control returns to 
TRSDOS Ready. From TRSDOS, enter the utility directly, 
without quotation marks (e.g., GCLS <ENTER> ). 

To call these routines from FORTRAN, see the Subprogram 
Linkage section of your TRS-80 Model III FORTRAN Manual 
(26-2200). 

Note: These utilities load into high memory starting at F000 
(hex); therefore, they cannot be used with DEBUG, DO, or any 
communication drivers that use high memory. 
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Utilities 
Command Action 



GCLS Clears graphics screen. 

GPRINT Lists graphics on the printer. 

GPRT3 Prints graphic display on the 

printer without 90 degree rotation. 

GRON Turns Graphic Screen ON. 






i ^i i him i mi wmn*^*o^. 



Table 6 



GCLS 

Clears Graphics Screen 



GCLS clears the Graphics Screen by erasing the contents of 
graphics memory corresponding to the visible Graphics 
Screen. GCLS erases graphics memory by writing zeroes (OFF) 
to every bit in memory. GCLS does not clear the Text Screen 
(video memory) . 



Examples 

When TRSDOS Ready is displayed, type: 

GCLS <ENTER> 

or when the BASICG READY prompt (>) is displayed, type: 

CMD"I" , "GCLS" <ENTER> 
or 

100 CMD"I","GCLS" 
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GLOAD 

Loads Graphics Memory from Diskette 



Note: There cannot be spaces within a file specification. 
TRSDOS terminates the file specification at the first space. 

With GLOAD, you can load TRSDOS files that have graphic 
contents into graphics memory. These files must have been 
previously saved to diskette using GSAVE. 

Examples 

When TRSDOS Ready is displayed, type: 

GLOAD PROGRAM/DAT. PASSWORD :0 <ENTER> 

or when the BASICG READY prompt (>) is displayed, type: 

CMD"I","GLOAD PROGRAM" <ENTER> 
or 

100 CMD"I" , "GLOAD PROGRAM" 
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GPRINT 

Lists Graphic Display to Printer 



GPRINT lets you print graphics memory on a graphics 
(dot-addressable) printer , such as Radio Shack's DMP-100 
(26-1253) or DMP-200 (26-1254). Both of these printers have 
a 9 1/2" carriage. However f distortion will occur when 
Graphic routines are printed with GPRINT* This is because 
GPRINT is not a true pixel-by-pixel "Screen Dump" since the 
pixel size and spacing on the screen is different from the 
pixel size and spacing on the Printer. GPRINT is a point of 
departure for you to obtain hard-copy representations of 
graphics. 

To print graphic displays, GPRINT turns the contents of the 
Graphic Screen clockwise 90 degrees and then prints. 

However, FORMS must be used to set printing parameters. 

Most uses will require that you set FORMS when TRSDOS Ready 
is displayed: 

FORMS (LINES=60,WIDTH=0) <ENTER> 

See your Model III Operation and BASIC Language Reference 

and printer owner's manual for more details on setting 
printing parameters. 

Important Note! Do not press <BREAK> while GPRINT is 
executing. 

Examples 

When TRSDOS Ready is displayed, type: 

GPRINT <ENTER> 
or when the BASICG READY prompt (>) is displayed, type: 

CMD " I "," GPRINT" <ENTER> 

or 

100 CMD"I" ,"GPRINT" 

For a complete GPRINT sample session, see Appendix D. 
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GPRT2 

Print Graphics 

.".■™;;.-».' , . , s , ° ■ r 1 '"'~' '■?. :: t'"'J™. h : ,i ?rf ; .'Ei'^ i "P=iW1«lit"i^aIS'J^"'-'' " ■■-:-»■'■■ : '° , .' , 'S 'V - '■.'. ->'■ """ ',i '■':■" ■■■'■;'■ -■■■ ..:- '■;■'.-■ '" ,K 
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GPRT2 is similar to GPRINT but is designed for use with 
wide-carriage (15") printers such as the DMP-400 and 
DMP-500. V 

GPRT2 is different from GPRINT in that the image is not 
rotated 90 degrees and a different aspect ratio is used. 

If GPRT2 does not produce the quality of print out you 
desire, try GPRT3 or GPRINT. 

Important Note! Do not press <BREAK> while GPRT2 is 
executing. 



Examples 

When TRSDOS Ready is displayed, type: 

GPRT2 <ENTER> 
or when the BASICG READY prompt (>) is displayed, type: 

CMD"I" ,"GPRT2" <ENTER> 

100 CMD"I","GPRT2" 



or 



GPRT3 

Print Graphics (Double on the Y-Axis) 



GPRT3 
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GPRT3 is similar to GPRINT but is designed for use with 
wide-carriage (15") printers such as the DMP-400 and 
DMP-500. 

GPRT3 is different from GPRINT in that the image is not 
rotated 90 degrees and a different aspect ratio is used. 

If GPRT3 does not produce the quality of print-out you 
desire, try GPRT2 or GPRINT. 

Important Note! Do not press <BREAK> while GPRT3 is 
executing. 



Examples 

When TRSDOS Ready is displayed, type: 

GPRT3 <ENTER> 
or when the BASICG READY prompt (>) is displayed, type: 

CMD"I","GPRT3" <ENTER> 

or 

100 CMD"I" ,"GPRT3" 



GROFF 

Turns Graphics Display OFF 



^^^S^^^^^^^^^^^^^S 



i§liiti 

ll§§ 



GROFF 






GROFF turns the Graphics Screen OFF. GROFF is different from 
GCLS since GROFF simply removes the Graphics display without 
erasing the contents of graphic memory. GCLS completely 
clears graphics memory by writing zeroes (OFF) to every bit 
in memory. 



Examples 

When TRSDOS Ready is displayed, type: 

GROFF <ENTER> 
or when the BASICG READY prompt (>) is displayed, type: 
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or 



CMD"I" ,"GROFF" <ENTER> 
100 CMD"I" , "GROFF" 



GRON 

Turns Graphics Display ON 



GRON 

GRON turns the Graphics Screen ON. 

Examples 

When TRSDOS Ready is displayed, type: 

GRON <ENTER> 
or when the BASICG READY prompt (>) is displayed, type: 

CMD n I","GRON n <ENTER> 
or 

100 CMD"I","GRON" 
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GSAVE 

Saves Graphics Memory to Diskette 

filename consists- of a name 

characters; the first chin. au <_<=j. uiuot. «= a. ,.j.=v._v5*.. --. 
/ext is an Optional name-extens ion ; ext is a 

ssQiisnce of ud to three numbers or letters* 
.password is an optional pas sword ? pas sword is a 

name of up to eight characters? the first 

character must be a letter* 
:d is an optional drive specif ication; d is one 

Note: There cannot be spaces within a file specification. 
TRSDOS terminates the file specification at the first space. 

With GSAVE, the contents in graphics memory is saved under a 
specified filename which follows the standard TRSDOS 
format. To load the file back into memory, use GLOAD. 



Examples 

When TRSDOS Ready is displayed, type: 

GSAVE PROGRAM/DAT. PASSWORD :0 <ENTER> 

or when the BASICG READY prompt (>) is displayed, type: 

CMD"I" ,"GSAVE PROGRAM" <ENTER> 
or 

100 CMD"I" ," GSAVE PROGRAM" 
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4/ Graphics Subroutine Library (FORTRAN) 

The Graphics Subroutine Library included on the Computer 
Graphics diskette lets you use the functions of TRS-80 
Computer Graphics while programming in Model III FORTRAN 
(26-2200). This library (GRPLIB/REL) must be linked to any 
FORTRAN program that accesses the Graphics Subroutines. 

BASICG vs» the Graphics Subroutine Library 

The Graphics Subroutine Library contains subroutines which 
provide the same capabilities as the Graphics commands and 
functions in BASICG. The Graphics subroutines have basically the 
same names and parameters as the BASICG commands. The major 
differences between the Library subroutines and the BASICG 
commands are: 

The BASICG command LINE has three corresponding library 
subroutines: LINE, LINEB f and LINEBF. LINEB and LINEBF 
provide the functions of the BASICG command LINE with the 
parameters B and BF respectively. 

The BASICG command PAINT has two corresponding library 
subroutines: PAINT and PAINTT. PAINT is for painting solid 
black or white, and PAINTT is for painting with tiling. 
The Library subroutines that correspond to BASICG commands 
that use (x,y) coordinates (except for VIEW) use (x r y) 
coordinates that have been previously set. The subroutines 
used to set the coordinates are SETXY and SETXYR. 



Setting Points Using SETXY and SETXYR 

The coordinates specified by SETXY or SETXYR will be called the 
"current" and "previous" coordinates. Subroutines that use one 
(x f y) coordinate pair use the "current" coordinates and 
subroutines that use two (x,y) pairs use both the "current" and 
the "previous" coordinates. Each call to SETXY or SETXYR sets 
the coordinates as follows: 

1. Assign the values of the "current" (x,y) coordinates to the 
"previous" (x f y) coordinates/ (discarding the old "previous" 
coordinates) . 
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Assign new values for the "current" (x,y) coordinates as 
specified by the arguments supplied. SETXY simply sets the 
"current" coordinates to the values of its arguments. 
SETXYR adds the values of its arguments to the "current" 
coordinates to obtain the new coordinates. 



Initialization 

Before any calls are made to Graphics, the Graphics library 
and board must be initialized. A special initialization 
routine (GRPINI) is included in the library. A call to 
GRPINI must be made as the first access to the Graphics 
library. 

Example 

00100 C SAMPLE INITIALIZATION 
00150 DIMENSION V(30,30) 
00200 CALL GRPINI (0) 



Linking 

The Library (GRPLIB/REL) must be linked to any programs that 
access the Graphics Subroutines. You must use the linker 
(L80) to generate the load module. 



Example 

L80 <ENTER> 
* SAMPLE :1-N 

*GRPHSAM,GRPLIB-S,FORLIB-S,-U 
*-E 

This example links both the Graphics Library and the FORTRAN 
Subroutine Library to the relocatable file GRPHSAM/REL. In 
this example, SAMPLE :1-N is the file name, drive 
specification, and switch, respectively; GRPHSAM, GRPLIB-S, 
FORLIB-S, and -0 are the names of the relocatable modules to 
be linked and their respective switches. -E ends the routine 
and creates the executable program SAMPLE. The *'s in the 
example are prompts for the user — not data to be entered. 

Note: If there are unresolved external references, the 
FORTRAN Library may need to be scanned a second time. 
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Errors 

If you enter incorrect parameters for any of the Graphics 
Subroutines , your screen will display: 

GRAPHICS ERROR 

and return program control to TRSDOS Ready. This is the 
only error message you'll get when executing the 
Subroutines . 

Important Note: Free memory is utilized by the Graphic 
Routine for temporary storage. Extreme care should be 
exercised if your program accesses this memory. 

Routines/Functions 

Most of the FORTRAN Subroutines and functions described in 
this section have a corresponding command in the Graphics 
BASIC Language Reference section of this manual. 
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FORTRAN Routines 



Routine 



Action 



CIRCLE 

CLS 
GET 

GPRINT 

GRPINI 

LINE 

LINEB 

LINEBF 

LOCATE 



PAINT 

PAINTT 

PRESET 

PSET 

PUT 

SCREEN 
SETXY 
SETXYR 
VIEW 



Draws a circle , arc, 

semicircle, or ellipse. 

Clears the Graphics Screen. 

Reads the contents of a rectangular 

pixel area into an array. 

Displays textual data on the 

Graphics Screen . 

Graphics initialization routine. 

Draws a line. 

Draws a box. 

Draws a filled box. 

Sets the direction for displaying 

textual data on the Graphics 

Screen . 

Paints the screen in specified 

OFF/ON color. 

Paints the screen in a specified 

pattern . 

Sets pixel OFF/ON. 

Sets pixel OFF/ON. 

Puts the stored array on the 

screen . 

Selects the screen . 

Sets (x,y) coordinates (absolute) . 

Sets (x f y ) coordinates (relative ) . 

Sets up a viewport where graphics 

is displayed. 



Table 7 



*™ " 




FORTRAN Functions 






Function 


Action 






POINT 


Reads a pixel's value at a 
specified coordinate . 






FVIEW 


Reads a viewport's parameters. 




^r==: 


:= ss sr = =:= ssz== = = = — -— - 


===============:==:================ :: ===— === 


:~**~ : 



Table 8 
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CIRCLE 

Draws a Circle, Arc, Semicircle, Point or Ellipse 



CIRCLE ( radius , color , start , end , ar ) 



radius is of INTEGER type and specifies the radius 

of the circle. ; 
color is of LOGICAL type, specifies the OFF/ON 

determines the major axis of the circle. If ar 



CIRCLE draws a circle. By varying start , end , and aspect 
ratio, you can draw arcs, semicircles, or ellipses using 
current X- and Y-coordinates as the centerpoint (set by 
SETXY or SETXYR). 

If start and end are 0.0, a circle is drawn starting 
from the center right side of the circle. Note: In the 
CIRCLE statement, end is read as 2 x PI even though you 
have entered 0.0. If you enter 0.0 for aspect ratio, a 
symmetric circle is drawn. 



Example 

CALL CIRCLEQ00, 1,0. 0,0. 0,0.0) 
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Sample Program 

This example draws and paints a circle. 

00010 C SAMPLE PROGRAM FOR CIRCLE 

00020 LOGICAL COLOR, OPTION 

00030 COLOR=l 

00040 OPTION=0 

00050 CALL GRPINI (OPTION) 

00060 CALL CLS 

00070 CALL SETXY(300,100) 

00080 CALL CIRCLE(100, COLOR, 0.0,0. 0,0.0) 

00090 CALL PAINT (COLOR, COLOR) 

00100 END 



CLS 

Clears Graphics Screen 



ets 

Example 

CALL CLS 
Sample Program (see CIRCLE) 



GET 

Reads Contents of a Rectangular Pixel Area into an Array 



array is'/any; type and Is ..'the;'' name" of \ the.' array-.- .: 
■''.■/''.''■;■ you" specify.- .-■,.-. .'/■';.■: 

si ze is of INTEGER type and specif ies:..the.--sxze,. -.of ;_.:.■ .j 
the array in terms of bytes. 

GET reads the contents of a rectangular pixel area into an 
array for future use by PUT. The pixel area is a group of 
pixels which are defined by the current x and y, and the 
previous X- and Y-coordinates specified by the SETXY call. 
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The first two bytes of array are set to the horizontal 
(X-axis) number of pixels in the pixel area; the second two 
bytes are set to the vertical (Y-axis) number of pixels in 
the pixel area. The remainder of array represents the 
status of each pixel (either ON or OFF) in the pixel area. 
The data is stored in a row-by-row format. The data is 
stored eight pixels per byte and each row starts on a byte 
boundary. 



Array Limits 

When the array is defined, space is reserved in memory for 
each element of the array . The size of the array is 
limited by the amount of memory available for use by your 
program — each real number in your storage array uses 
four memory locations (bytes). 

The array must be large enough to hold your graphic 
display and the rectangular area defined must include all 
the points you want to store. 

To determine the minimum array size: 

1. Divide the number of X-axis pixels by 8 and round 
up to the next higher integer. 

2. Multiply the result by the number of Y-axis pixels. 

When counting the X-Y axis pixels, be sure to include 
the first and last pixel. 

3. Add four to the total. 

4. Divide by four (for real numbers) and two (for integers) 
rounding up to the next higher integer. (Note: If 
you're using a LOGICAL array , the result of Step #3 
above will produce the desired array size.) 

When using arrays , the position and size of the 
rectangular pixel area is determined by the current and 
previous (x,y) coordinates . 

Position: upper left corner = startpoint = (xl,yl) 

lower left corner = endpoint = (x2,y2) 

Size (in pixels): width = x2-xl+l 

length = y2-yl+l 
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Example 



CALL GET (A, 4000) 



Sample Program 

This example draws a circle, saves the circle into an 
array , then restores the array to the graphics video. 



00050 C 

00100 

00150 

00200 

00300 

00350 C 

00400 

00500 

00550 C 

00600 

00700 

00750 C 

00800 

00900 

01000 10 

01050 C 

01100 

01200 

01300 

01400 

01500 20 

01600 



SAMPLE FOR GET AND PUT 
LOGICAL V ( 1 2 8 ) , ACTION 

ACTI0N=1 
CALL GRPINK0) 
CALL CLS 
DRAW A CIRCLE 
CALL SETXY(30,30) 
CALL CIRCLE(10, 1,0. 0,0. 0,0.0) 
SET COORDINATES FOR GET ARRAY 
CALL SETXY(10,10) 
CALL SETXY(40,40) 

STORE GRAPHICS INTO ARRAY WITH GET 
CALL GET(V,128) 
DO 10 1=1,5000 
CONTINUE 

CLEAR SCREEN AND RESTORE GRPH FROM ARRAY 
CALL CLS 

CALL SETXY (110,110) 
CALL PUT (V, ACTION) 
DO 20 1=1,5000 
CONTINUE 
END 



GPRINT 

Write Text Characters to the Graphics Screen 

■*»** f g of INTEGER type and specifies the number of 



Iflfill 
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GPRINT is used to write text characters to the Graphics 
Screen. This is the easiest way to display textual data on 
the Graphics Screen. Characters are displayed starting at 
the current (x,^) coordinates and going in the direction 
specified by the most recently executed LOCATE call. If no 
LOCATE call was executed prior to the GPRINT call, a 
direction of is assumed. 

GPRINT will only print text characters (see Appendix C of 
the Model III Operation and BASIC Language Reference 
Manual). Each character displayed in the or 2 direction 
uses an 8 X 8 pixel grid; each character displayed in the 1 
or 3 direction uses a 16 X 8 grid. Executing this command 
will set the current (x*Y) coordinates to the end of the 
last character that was displayed. 

Displaying text in direction engages a wraparound feature. 
If the end of a line is reached, the display will be 
continued on the next line. If the end of the screen is 
reached, the display will be continued at the beginning of 
the screen without scrolling. If there is not enough room to 
display at least one character at the current (x f y) 
coordinates, a GRAPHICS ERROR will result. When displaying 
text in other directions, an attempt to display text outside 
the currently defined screen will cause a GRAPHICS ERROR to 
be given. 



GRPINI 

Graphics Initialization Routine 



option is of LOGICAL type; 
Screen , non-zero does 




GRPINI is the graphics initialization routine. This function 
must be called before any other graphics calls are made in 
FORTRAN . 



Example 

CALL GRPINI (1) 
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Draws Line 



Operation Manual 



E ( color , style ) 

color is of LOGICAL type, specifies the OFF/ON 

color of a line and is an integer expression of 
either (OFF, black) or 1 (ON, white). 

style is of INTEGER type, specif ies the pattern of 
the line and is a number in the integer range, -1 



LINE draws a line between the previous and current 
coordinates. These coordinates are set by the SETXY or 
SETXYR subroutines. 



Example 



CALL LINE (1,-1) 



Sample Program 

This example draws a diagonal line connected to a box, which 
is connected to a filled box. 



00010 

00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 



SAMPLE FOR LINE LINEB LINEBF 

LOGICAL COLOR 

C0L0R=1 

CALL GRPINK0) 

CALL CLS 

CALL SETXY (l f l) 

CALL SETXY (210, 80) 

CALL LINE ( COLOR, -1) 

CALL SETXY (4 20, 160) 

COORDINATES ARE NOW (210,80) (420,160) 

CALL LINEB ( COLOR, -1) 

CALL SETXY (639, 239) 

COORDINATES ARE NOW (420,160) (639,239) 

CALL LINEBF (COLOR) 

END 
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LINEB 

Draws Box 



IiISEB (color , style ) 



color is of LOGICAL type , specifies the 01 

lli|ji|^^ .a 



color of a line and is a integer expression of 




LINEB is the same as LINE except LINEB draws a box between 
the two sets of coordinates set by the SETXY or SETXYR 
subroutines. 



Example 

CALL LINEB (1,-1) 



Sample Program (see LINE) 



LINEBP 

Draws Painted Box 

color is of LOGICAL type , 
color of a line and is 




LINEBF is the same as LINEB except LINEBF fills the box 
(colors in the box) and the argument style is not used. 



Example 

CALL LINEBF (1) 
Sample Program (see LINE) 
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LOCATE 

Sets the Direction for Displaying Text on the Graphics 
Screen 




GLOCATE 
textual data and is an : 

LOCATE sets the direction that GPRINT will use to display 
textual data. The allowable values for direction are: 

- zero degree angle 
1-90 degree angle 

2 - 180 degree angle 

3 - 270 degree angle 



Examples 

CALL LOCATE (0) 

This program line will cause characters to be displayed at 
the current (x f y) coordinates in normal left to right 
orientation. 

CALL LOCATE (1) 

This program line will cause characters to be displayed at 
the current (x,y) coordinates in a vertical orientation 
going from the top of the screen to the bottom of the 
screen. 

CALL LOCATE (2) 

This program line will cause characters to be displayed 
upside down starting at the right of the screen and going 
towards the left. 

CALL LOCATE (3) 

This program line will cause the characters to be displayed 
vertically starting at the lower portion of the screen going 
towards the top of the screen. 
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PAINT 

Paints Screen in Specified Color 



'(• color * border ) 



color of painting and is an integer expression of 




color of the border and is an integer expression 
of either (OFF, black) or 1 «M, white)* 



PAINT paints the screen in the specified OFF/ON color 
(black or white). It uses the current X- and Y-coordinates 
(see SETXY) as its startpoint. 



Example 

CALL PAINT(l f l) 

Sample Program (see CIRCLE) 
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PAINTT 

Paints Screen in Specified Pattern 



••'.'..: airrayT is v B: ; %te ; . #r*ay which def xries'^^Btil^i^pixel-^ 
:, ; -.""pattexn : -. : .tb : ' be lised wh^n jpainting • ( tiling) vTh^s 
\-.;-;-.; ; fixg.t' byte-, of argayT indicates; the length bi the 

■■■•■/ " t i ;ie * . (number of bytes) v : . 
border is of )^®iCflfo type and specif ies the color 
of the border* border is an integer expression 
of either (black) or 1 (white). 
arrays is a byte array that is used to define the 
background* The first byte is always set to 1; 
the second byte describes the background you are 
painting on (X*FF f -■ white,; XW 1 = black) • 

PAINTT lets you paint a precisely defined pattern using a 
graphics technique called "tiling." You can paint with 
tiling by defining a multi-pixel grid in an array and then 
using that array as the paint pattern. 



Example 

CALL PAINTT (A,1,V) 
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00100 
00150 
00200 
00300 
00350 
00400 
00500 
00600 
00650 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 



Operation Manual 



EXAMPLE FOR PAINT WITH TILE 

LOGICAL A, B, BORDER 

DIMENSION AC 9) 

DIMENSION B(2) 

DEFINE TILE ARRAY HERE 

DATA A(l), A(2), A(3) / 8, X'81', X'42'/ 

DATA h(4) ,A(5) ,K(.6)/X'24' ,X'1S' ,X»18'/ 

DATA A{7) ,h{8) r A(9)/X'24' ,X l A2' fX'Sl 1 / 

DEFINE BACKGROUND ARRAY HERE 

DATA B(1),B(2)/1,0/ 

CALL GRPINK0) 

CALL CLS 

CALL SETXY(300,100) 

CALL CIRCLEQ50, 1,0. 0,0. 0,0.0) 

BORDER=l 

CALL PAINTT( A, BORDER, B) 

END 



PRESET 

Sets Pixel ON/OFF 

'■■ : - "■ PfiESIT ■ ■ : ic<6ibr )■; 



color is of LOGICAL ; type, specif ies ''whether: ■'■■a-'.pixel-i 
'■' . ' is ' to be ''set" ON or OFF and is aa integer: 
:';-.■ ■■expre'ssion. of -'either (OFF) or- 1';-. <ON). •;■■','. 



PRESET sets the pixel defined by the current (x,y) 
coordinates either ON or OFF. 



Example 



CALL PRESET(0) 
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Sample 


Program 




00100 C 




00200 




00300 




004,00 




00500 




00600 C 




00600 




00S00 




00900 C 




01000 




01100 30 




01200 35 




01300 


PSET 




Sets Pixel ON/OFF 



PRESET EXAMPLE 

LOGICAL COLOR 

COLOR=l 

CALL GRPINK0) 

CALL CLS 

SET PIXEL TO ON 

CALL SETXY(300,120) 

CALL PRESET (COLOR) 

TEST PIXEL WHETHER ON OR OFF 

K=POINT(M) 

WRITE (3,35)K 

FORMAT ('2',' PIXEL VALUE IS', 14) 

END 



color is of LOGICAL type, specifies whether a pixel 
is .to he set^ON^r OFF and^is an^ integer 
expression of either (OFF) or 1 (ON), 

PSET sets the pixel defined by the current (x,y_) 
coordinates either ON or OFF. 



Example 



CALL PSET(0) 
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Sample Program 






00100 


C 


PSET EXAMPLE 


00200 




LOGICAL COLOR 


00300 




LOGICAL POINT 


00400 




COLOR=l 


00500 




CALL GRPINK0) 


00600 




CALL CLS 


00100 


C 


SET PIXEL TO ON 


00B00 




CALL SETXY( 300,120) 


00900 




CALL PSET (COLOR) 


01000 


C 


TEST PIXEL WHETHER ON OR OFF 


01100 




K=POINT(M) 


01200 




WRITE (3,35)K 


01300 


35 


FORMAT ( ' 2 ' , 'PIXEL VALUE IS ' , 14 ) 


01400 




END 




PDT 

Puts Stored Array onto Screen 

POT (array , action) 

array is usually LOGICAL type, although any type is 
permissible. Specifies the array (stored with 

■.;.^-;..;; .; ^ o ■: ■.; .-.:f ■■ ..'...; ■;:■-■ ~ T^^**jfr|.\' " ■'■ vkjL." it'V"'!^ iik;. ."■ ..'-.— ^1'-'-^; 'Jfc' ■>»■ *«i WjmI' ■ " ■■-■"■■- --- ■.■.'.:.-"■ : " '■ "■■-■' V "'"'"'■■ "■■■■.^„. : : ! i, " ^ ."'.'^'r"^-^'^''^^^'^'- 'r'^^^^^'^'^^A^;;-^';' 

, ! .*:*■=■?.-.. ■;■.■■■;■■-:: $- .' -.?„-.■ » ;.■».-...- r - fcJJE^A" <£"■;■■■■■' JLAJr.' - : XJCSr ' JL v5"«3' 4»Vy-JL ; "^K*"» ■'■■■■■ - - :_ ' ■■■" !"■■■ = -^ -■':■■ ■'"■ "■" ■^..■■^■^"^■•■■■■■■'J'-' ; : ^■^^■'""■■^■■"■■■■^V^ ■^■^-"■■■5"-iJ t k'i!''i\: , i:" , !' ! >-i-:v A •.;;.. 

„.v J - J r- - ' "~ r'.r ■ ■"- '■■■^-; ^„- , ?.:,- v. ' .. r ".^" ^t^-."!.'.-" .■*-. - :^"^^^r; ■ , .^T^'T^ ' ^ v?*^ ^\..r^ -*»*» *^ .*■* ^n**^ w .. : . ..^ . u . ^. . ^.. ,0, y u \.vr..^--;^.. ^ ;. v"^'- ^"■■°- : ^-:". r ... , i/-'-.^ ■ v ■*■"'" '^'^■'■■""'^.^"'o'. ^'^ : h?-'-"v'?:£.-.y.. - - %" "3 -"-.v^.^ 

action is of LOGICAL type and specif ies how the 

data is to be written to the video* Action may be 



5 « 









PUT takes a rectangular pixel area that has been stored by 
GET and puts it on the screen at current x and y coordinates 
set by calling SETXY. 



Example 



CALL PUT <V,1) 



Sample Program (see GET) 
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SCREEN 

Selects Screen 






switch is of LOGICAL type and specifies the type of 
screen display and may be one of the following: 

'■■' l"='Text Screen 
SCREEN lets you select the proper screen. 



Example 



CALL SCREEN (0) 



Sample Program 

This example turns off the graphics display, draws a circle, 
then turns on the graphics display. The circle is then 
visible. 

00010 C EXAMPLE FOR SCREEN 

00020 LOGICAL CMD 

00040 CMD=1 

00050 CALL GRPINK0) 

00060 CALL CLS 

00070 CALL SCREEN (CMD) 

00080 CALL SETXY(300,120) 

00090 CALL CIRCLE(100, 1,0. 0,0. 0,0.0) 

00100 CALL PAINT (1,1) 

00110 DO 20 1=1,10000 

00120 20 CONTINUE 

00130 CMD=0 

00140 CALL SCREEN (CMD) 

00150 END 
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SETXY 

Sets Coordinates 



SETXY <x,y) 

(x.v) are INTEGER tvne and represent coordinates on 



'"Jfrh /ov 







SETXY sets and holds both current and previous X- and 
Y-coordinates. When a new coordinate is given f it is 
designated as the "current coordinate" and the last 
coordinate is designated as the "previous coordinate." If a 
new coordinate is specified , the "previous coordinate" is 
lost and the "current coordinate" becomes the "previous 
coordinate. " 



Example 

CALL SETXY (100,100) 



Sample Program (see LINE) 



SETXYR 

Sets Relative Coordinates 



wgm&m 
^11 



.... ........ ... . . f -r-v 1 v* . I -.1. . ... ■ ..*■» ■** trm. . X VT II I ■ U. r+.. Ola 1_ **mk.'^«. • *>*. S .•_ .— . _ — _ ._.. J _ — J 1 r* — ■ -I- ■_ .«_ J- 




SETXYR sets the current (x,y.) coordinates relative to 
the previously set (x,y.) coordinates. For example, if 
the "current" coordinates are (.100,100), CALL SETXYR (10, 10) 
will set the "current" coordinates to (110,110); the 
"previous" coordinates will then be (100,100). 



Example 

CALL SETXYR (30, 30) 
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Sample Program 

00010 
00020 
00030 
00010 
00050 
00060 
00010 
00080 
00090 
00100 



C 
C 



DRAW TWO INTERSECTING CIRCLES 

CALL GRPINK1) 

CALL CLS 

CALL SETXY (100,100) 

CALL CIRCLE ( 50, 1,0.0,0.0,0.0) 

DRAW SECOND CIRCLE WITH CENTER 20 

PIXELS TO THE RIGHT OF FIRST CIRCLE 

CALL SETXYR(20,0) 

CALL CIRCLE(50, 1,0. 0,0. 0,0.0) 

END 



VIEW 

Sets Viewport 



VIEW( leftX y leftY y ri<|htX , riqhtY , coloryborder 






to 639 and specify viewport's corner X- 
coordinates. leftY and rightY are numeric 
expressions fronT]F*to 239 and specify the 
viewport's corner Y-coordinates. 
color is of LOGICAL type, specifies the OFF/ON 

color code and is a numeric expression of either 
(OFF, black) , 1 (ON, white) , or -1 (viewport is 

color for the viewport and is an integer 



illili^^ drawn) . 



/ 



VIEW draws viewports on your screen. Graphics is displayed 
only in the last defined viewport. 

The upper-left corner of viewport is read as (0,0) (the 
"relative origin") when creating items inside the viewport. 
All the other coordinates are read relative to this origin. 
However, the "absolute coordinates" of the viewport, as they 
are actually defined on the Graphics Cartesian system, are 
retained in memory and can be read using VIEW as a function. 
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Example 



CALL VIEW (100, 100,200,200,0,1) 



Sample Program 

00100 C 

00200 

00300 

00400 

00500 

00500 C 

00700 

00800 

00900 

01000 C 

01100 

01200 

01300 

01400 20 

01500 C 

01600 

01700 

01800 

01900 

02000 35 

02100 40 

02200 C 

02300 

02400 

02500 50 

02600 60 

02700 



SAMPLE VIEW PROGRAM 

LOGICAL COLOR, BORDER, K 

INTEGER FVIEW 

CALL GRPINI(l) 

CALL CLS 

SET UP VIEW PORT 

COLOR=0 

BORDER=l 

CALL VIEW( 210, 80, 420, 160, COLOR, BORDER) 

DRAW MULTIPLE CIRCLES 

CALL SETXY(105,40) 

DO 20 1=10,150,10 

CALL CIRCLE(I,1,0.0,0.0,0) 

CONTINUE 

DISPLAY VIEWPORT COORDINATES 

DO 40 1=1,4 

K=I-1 

J=FVIEW(K) 

WRITE (3, 35)1, J 

FORMAT (^'j'VIEW PORT COORDINATE ',14,' IS AT', 14) 

CONTINUE 

PRINT EMPTY LINES 

DO 60 1=1,6 

WRITE (3,50) 

FORMAT (1H1) 

CONTINUE 

END 



The following two descriptions are functions in the Graphics 
Subroutine Library and must be declared as LOGICAL and 
INTEGER, respectively, in any routine that uses them. 
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Functions 




POINT returns the OFF/ON pixel value at current x and y 
coordinate as specified by SETXY or SETXYR. If the point is 
not in the current viewport, POINT returns -1. 



Example 

K=POINT(M) 
Sample Program (see PSET) 



FVIEW 

Reads Viewport's Parameters 
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FVIEW returns the specified viewport parameter: 

= returns the left X-coordinate 

1 = returns the left Y-coordinate 

2 = returns the right X-coordinate 

3 = returns the right Y-coordinate 



Example 



I=FVIEW(j2f) 
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Sample Program (see VIEW) 
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5/ Programming the Graphics Board 



The Graphics Board provides 640 X 240 byte addressable 
pixels on a TRS-80 Model III. The Graphics Board contains 
32K of screen RAM to store video data consisting of four 
64K RAMs which are double accessed for 8 bytes of data. 
Regular alphanumeric data is stored in the static RAM on 
the Video Board. The Graphics Board uses separate hardware 
to generate a 640 X 240 display , so only one screen may be 
displayed at a time. If the video is switched from Text to 
Graphics Screen very rapidly , the Video display may lose 
horizontal/ vertical synchronization. 

I/O port mapping is used to read and write data to the 
board. The Board is addressable at 80-83 Hex. 

There are four internal registers which can be written to 
or read on the board. They are as follows: 

1. X-Position - X-address (0 to 127) for data write 

only. (0 to 79 for display.) 

2. Y-Position - Y-address (0 to 255) for data write 

only. (0 to 238 for display.) 

3. Data - Graphics data in "byte" form. Each 

byte turns on or off 8 consecutive 
horizontal dots . 

4. Options - 8 flags which turn on or off the user 

programmable options (Write only). 

The I/O port mapping of the board is: 

x0 - X- Register Write. (80) 

xl - Y-Register Write. (81) 

x2 - Video data read or write. (82) 

x3 - Options write. (83) 

where x denotes the upper nibble of the I/O boundary as 
set by the DIP Switches. They are set by the factory at 
80H. 

The Graphics Board uses X-Y addressing to locate the start 
of a Graphics data byte. The upper-left of the screen is 
(0,0) while the lower-right is (079,239). If the bit is a 
1, the dot will be ON. For example, if you wanted to turn 
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on the 5th dot on the top row, the registers would contain: 
X POSITION^, Y POSITION^, DATA= (00001000)=08H. Note that 
in calculating points to plot, the Y-position is correct 
for a single dot. Only the X-position must be corrected to 
compensate for the byte addressing. This can be 
accomplished in a simple subroutine. 



Line Drawing Options 

There are two 8-bit counters which act as latches for the 
X- and Y-address. You may select, through the options 
register, if they are to automatically count after a read 
or write to graphic memory. Also, the counters may 
increment or decrement independently. These counters do not 
count to their respective endpoints and reset. Instead, 
they will overflow past displayable video addresses. 
Therefore, the software should not allow the counters to go 
past 79 and 239. However, these extra memory locations may 
be used for data storage. 



Examples 

The following are brief examples on how to use the Graphics 
Board . 

Read the video byte at X=J0, Y=j2f 



XOR 


A 


; CLEAR A 


OUT 


(80H),A 


; OUTPUT X ADDRESS 


OUT 


(81H),A 


; OUTPUT Y ADDRESS 


IN 


A, (82H) 


;READ VIDEO BYTE 



Draw a line from X=0,Y=0 to X=639, Y=0 using the hardware 
line drawing 



LOOP 



LD 


B,79 


LD 


A,0BlH 


OUT 


(83H),A 


XOR 


A 


OUT 


(80H),A 


OUT 


(81H),A 


LD 


A,J0FFH 


OUT 


(82H),A 


DJNZ 


LOOP 



;B HAS CHARACTER COUNT 

; OPTIONS: INCREMENT X AFTER WRITE 

; 10110001 Binary 



;OUT X ADDRESS STARTING 

; OUTPUT Y ADDRESS 

;LOAD A WITH ALL DOTS ON 

; OUTPUT" DOTS 

; OUTPUT NUMBER IN B REGISTER 
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Options Programming 
Option Description 



No. 



1 
2 



6 

7 



GRAPHICS /ALPHA' 

NOT USED 
XREG DEC/INC* 

YREG DEC/ INC* 

X CLK RD* 



Y CLK RD* 



X CLK WR* 
Y CLK WR* 



Turns graphics ON and OFF. 
"1" turns graphics ON. 



Selects whether X decrements 
or increments. "1" selects 
decrement. 

Selects whether Y decrements 
or increments. "1" selects 
decrement. 

If address clocking is 
desired, a "0" clocks the X 
address up or down AFTER a 
Read depending on the status 
of BIT 2. 

If address clocking is 
desired, a "0" clocks the Y 
address up or down AFTER a 
Read depending on the status 
of BIT 3. 

A "0" clocks AFTER a Write. 
A "0" clocks AFTER a Write. 



Table 9. Options Programming 



Radre/haek 

-116- 



r 



SERVICE POLICY 

Radio Shack's nationwide network of service facilities provides quick, convenient, 
and reliable repair services for all of its computer products, in most instances. 
Warranty service will be performed in accordance with Radio Shack's Limited 
Warranty. Non-warranty service will be provided at reasonable parts and labor 
costs. 

Because of the sensitivity of computer equipment, and the problems which can 
result from improper servicing, the following limitations also apply to the services 
offered by Radio Shack: 

1 . If any of the warranty seals on any Radio Shack computer products are broken, 
Radio Shack reserves the right to refuse to service the equipment or to void 
any remaining warranty on the equipment. 

2. If any Radio Shack computer equipment has been modified so that it is not 
within manufacturer's specifications, including, but not limited to, the installation 
of any non-Radio Shack parts, components, or replacement boards, then 
Radio Shack reserves the right to refuse to service the equipment, void any 
remaining warranty, remove and replace any non-Radio Shack part found in 
the equipment, and perform whatever modifications are necessary to return 
the equipment to original factory manufacturer's specifications. 

3. The cost for the labor and parts required to return the Radio Shack computer 
equipment to original manufacturer's specifications will be charged to the 
customer in addition to the normal repair charge. 



^ 



^'" 



RADIO SHACK, A DIVISION OF TANDY CORPORATION 

U.S.A.: FORT WORTH, TEXAS 76102 
CANADA: BARRIE, ONTARIO L4M 4W5 

TANDY CORPORATION 

AUSTRALIA BELGIUM U. K. 
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Graphic Utilities Source Code Listings 



001 

002 

003 

004 

005 

006 

001 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 



GCLS — Clear graphics screen 



GCLS 



OUTER 
INNER 



INCY 

INCXY 

X 

Y 

WRITE 
STATUS 



PSECT 

PUSH 

PUSH 

PUSH 

CALL 

LD 

OUT 

XOR 

OUT 

OUT 

LD 

LD 

LD 

OUT 

DJNZ 

LD 

OUT 

XOR 

OUT 

OUT 

LD 

OUT 

XOR 

LD 

DJNZ 

LD 

OUT 

POP 

POP 

POP 

XOR 

RET 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



0F000H 

HL 

DE 

BC 

INITG 

A, INCY 

(STATUS), A 

A 

(X) ,A 

(Y) ,A 

B,80 

C,B 

B,239 

(WRITE) ,A 

INNER 

A, INCXY 

(STATUS) ,A 

A 

(WRITE) ,A 

(Y),A 

A, INCY 

(STATUS) ,A 

A 

B,C 

OUTER 

A,0FFH 

(STATUS) ,A 

BC 

DE 

HL 

A 

70H 
30H 
80H 
81H 
82H 
83H 



;Save registers 



;Set graphics status: 

; Graphics off, waits off, inc Y 

;Set X & Y address to 

;80 X addresses 

;239 Y addresses. 240th done after loop. 

;Zero graphics memory 

;Go clear next Y 

;Set status to inc X & Y after write 



;and clear last (240th) Y address 

;Set Y back to zero 

;Reset status to inc Y only 



;Go clear next X 

;Set status to graphics, waits, no incs. 

;Restore registers 



;A11 done. Go back to caller. 



INITG — Initialize Model III Graphics Board 



INITG 



LD 

OUT 

LD 



A,10H 
(236) ,A 
BC,15 



;Turn on port 
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047 


LD 


HL , DATA 


048 LOOP 


LD 


A,B 


049 


OUT 


(136), A 


050 


LD 


A, (HL) 


051 


OUT 


(137), A 


052 


INC 


HL 


053 


INC 


B 


054 


LD 


A,B 


055 


CP 


C 


056 


JR 


NZ,LOOP 


057 


RET 




058 DATA 


DEFB 


99 


059 


DEFB 


80 


060 


DEFB 


85 


061 


DEFB 


8 


062 


DEFB 


25 


063 


DEFB 


4 


064 


DEFB 


24 


065 


DEFB 


24 


066 


DEFB 





067 


DEFB 


9 


068 


DEFB 





069 


DEFB 





070 


DEFB 





071 


DEFB 





072 


DEFB 





073 


DEFB 





074 ; 






075 


END 


GCLS 
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;Program CRTC chip for 80 by 24 
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001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 



; GRON — ' 

• 


rurn on graphic 


PSECT 0F000H 


GRON CALL 


INITG 


LD 


A,0FFH 


OUT 


(STATUS), A 


XOR 


A 


RET 




STATUS EQU 


83H 


; INITG -- 


Initialize Moc 


INITG PUSH 


HL 


PUSH 


BC 


PUSH 


AF 


LD 


A,10H 


OUT 


(236), A 


LD 


BC,15 


LD 


HL , DATA 


LOOP LD 


A,B ; 


OUT 


(136), A 


LD 


A, (HL) 


OUT 


(137), A 


INC 


HL 


INC 


B 


LD 


A,B 


CP 


C 


JR 


NZ,LOOP 


POP 


AF 


POP 


BC 


POP 


HL 


RET 




DATA DEFB 


99 


DEFB 


80 


DEFB 


85 


DEFB 


8 


DEFB 


25 


DEFB 


4 


DEFB 


24 


DEFB 


24 


DEFB 





DEFB 


9 


DEFB 





DEFB 





DEFB 





DEFB 





DEFB 





DEFB 
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on 



;Turn on port 



;Program CRTC chip for 80 by 24 
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050 END GRON 
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001 


; GROFF — 


Turn graphics 


002 


• 
/ 




003 


PSECT 0F000H 


004 


GROFF CALL 


INITG 


005 


LD 


A,0FCH 


006 


OUT 


(STATUS) ,A 


001 


XOR 


A 


008 


RET 




009 


STATUS EQU 


83H 


010 






011 


; INITG — 


Initialize Mo( 


012 






013 


INITG PUSH 


HL 


014 


PUSH 


BC 


015 


PUSH 


AF 


016 


LD 


A,10H 


017 


OUT 


(236), A 


018 


LD 


BC,15 


019 


LD 


HL , DATA 


020 


LOOP LD 


A,B 


021 


OUT 


(136), A 


022 


LD 


A, (HL) 


023 


OUT 


(137), A 


024 


INC 


HL 


025 


INC 


B 


026 


LD 


A,B 


027 


CP 


C 


028 


JR 


NZ,LOOP 


029 


POP 


AF 


030 


POP 


BC 


031 


POP 


HL 


032 


RET 




033 


DATA DEFB 


99 


034 


DEFB 


80 


035 


DEFB 


85 


036 


DEFB 


8 


037 


DEFB 


25 


038 


DEFB 


4 


039 


DEFB 


24 


040 


DEFB 


24 


041 


DEFB 





042 


DEFB 


9 


043 


DEFB 





044 


DEFB 





045 


DEFB 





046 


DEFB 





047 


DEFB 





048 


DEFB 





049 


• 


II 
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;Turn on port 



; Program CRTC chip for 8j? by 24 
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050 



END GROFF 
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001 

002 

003 

004 

005 

006 

001 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 



GSAVE — Save graphics display to disk 



PSECT 0F000H 
GSAVE PUSH HL 



PUSH 

PUSH 

PUSH 

PUSH 

CALL 

LD 

LD 

LD 

LD 

LDIR 

POP 

LD 

CP 

JP 

LD 

CALL 

JP 

LD 

LD 

LD 

CALL 

JP 

XOR 

LD 

/ 

LD 
OUT 
XOR 
OUT 
OUT 
LD 
LD 
LD 
NXTREC LD 
LD 



NGRPH 



LD 

IN 

LD 

INC 

INC 

LD 

CP 

JR 

XOR 

LD 



;Save registers 
DE 

BC 

IY 

HL 

INITG 

HL,DCBEE ;Zero DCB buffer 

DE,DCBEE+1 

BC,49 

(HL),00H 



HL 

A,0DH 

(HL) 

Z , ERROR 

DE,DCBEE 

441CH 

NZ,BOMB 

HL , BUFFER 

DE f DCBEE 

B,0 

4420H 

NZ , BOMB 

A 

(OPNFLG) ,A 



;Error if filespec not given 
;Move filespec to DCB 

;Open file 



A,0E3H 
(STATUS) ,A 
A 

(X) ,A 
(Y),A 
E,A 
D,80 
B,75 

HL , BUFFER 
C,B 
B,0 

A, (GRAPH) 
(HL) ,A 
HL 
E 

A,E 
D 

NZ,EGRPH ;Same row? 
A 
E,A 



;Set flag: file 
;status = inc X 



is open 
after read 



;init X & Y to zero 

; counter for X values 

;80 X values 

;75 disk records for entire screen 



;256 bytes per record 
;Get next graphics byte 
; and put in buffer 
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050 


OUT 


(X),A ! 


051 


LD 


A, (YPOS) 


052 


INC 


A 


053 


LD 


(YPOS) , A 


054 


OUT 


(Y),A 


055 EGRPH 


DJNZ 


NGRPH 


056 


PUSH 


DE 


057 


LD 


DE,DCBEE 


058 


CALL 


4439H 


059 


POP 


DE 


060 


JR 


NZ,BOMB 


061 


LD 


B f C 


062 


DJNZ 


NXTREC 


063 ; 






064 EXIT 


CALL 


CLOSE 


065 


LD 


A,0FFH 


066 


OUT 


(STATUS) ,A 


067 


POP 


IY 


068 


POP 


BC 


069 


POP 


DE 


070 


POP 


HL 


071 


LD 


A, (EFLAG) 


072 


CP 





073 


RET 




074 ; 






075 ; Subroutines 


076 ; 






077 CLOSE 


LD 


A,(OPNFLG) 


078 


OR 


A 


079 


RET 


NZ 


080 


LD 


DE,DCBEE 


081 


JP 


4428H 


082 ; 






083 ; Error exits 


084 ; 






085 ; 






086 ERROR 


LD 


A, 47 


087 ; 






088 BOMB 


LD 


(EFLAG) ,A 


089 


LD 


B,A 


090 


LD 


A, 39 


091 


RST 


8 


092 


JP 


EXIT 


093 ; 






094 X 


EQU 


80H 


095 Y 


EQU 


81H 


096 GRAPH 


EQU 


82H 


097 STATUE 


5 EQU 


83H 


098 EFLAG 


DEFB 






;Next row. Set X to zero 



;Go get next graphics byte 



;Write disk record 



;Go fill buffer for next record 



;Status = graphics, waits, no incs 



;A11 done. Return to caller. 



;Return if file not open 
;Go close file 

;Required Command Parameter Not Found 
;Print "ERROR nn" message 
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099 


YPOS 


DEFB 





100 


OPNFLG DEFB 


1 


101 


DCBEE 


DEFS 


50 


102 


BUFFEB 


[ DEFS 


256 


103 


; INITG — 


Initialize Mo< 


104 


* 






105 


INITG 


LD 


A,10H 


106 




OUT 


(236), A 


107 




LD 


BC,15 


108 




LD 


HL , DATA 


109 


LOOP 


LD 


A,B 


110 




OUT 


(136), A 


111 




LD 


A, (HL) 


112 




OUT 


(137), A 


113 




INC 


HL 


114 




INC 


B 


115 




LD 


A,B 


116 




CP 


C 


117 




JR 


NZ,LOOP 


118 




RET 




119 


DATA 


DEFB 


99 


120 




DEFB 


80 


121 




DEFB 


85 


122 




DEFB 


8 


123 




DEFB 


25 


124 




DEFB 


4 


125 




DEFB 


24 


126 




DEFB 


24 


127 




DEFB 





128 




DEFB 


9 


129 




DEFB 





130 




DEFB 





131 




DEFB 





132 




DEFB 





133 




DEFB 





134 




DEFB 





135 


• 






136 




END 


GSAVE 
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;Turn on port 



; Program CRTC chip for 80 by 24 
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001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 



; GLOAD — Save graphics display to disk 

;Save registers 



GLOAD 



PSECT 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

LD 

LD 

LD 

LD 

LDIR 

POP 

LD 

CP 

JR 

LD 

CALL 

JR 

LD 

LD 

LD 

CALL 

JP 

XOR 

LD 



LD 

OUT 

XOR 

OUT 

OUT 

LD 

LD 

LD 

NXTREC PUSH 
LD 

CALL 
POP 
JR 
LD 
LD 
LD 

NGRPH LD 
OUT 
INC 
INC 



0F000H 

HL 

DE 

BC 

IY 

HL 

INITG 

HL,DCBEE ;Zero DCB buffer 

DE,DCBEE+1 

BC,49 

(HL) f H 



HL 

A,0DH 
(HL) 

Z , ERROR 
DE,DCBEE 
441CH 
NZ , BOMB 
HL , BUFFER 
DE , DCBEE 
B,0 
4424H 
NZ , BOMB 
A 
(OPNFLG) ,A 

A,0B3H 

(STATUS), A 

A 

(X),A 

(Y),A 

E,A 

D,80 

B,75 

DE 

DE, DCBEE 

4436H 

DE 

NZ,BOMB 

HL , BUFFER 

C,B 

B,0 

A, (HL) 

(GRAPH) ,A 

HL 

E 



;Move filespec to DCB 



;Open file 

;Set flag: file is open 

; status = inc X after write 

;init X & Y to zero 



counter for X values 

80 X values 

75 disk records for entire screen 



;Read record from disk 



;256 bytes per record 
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050 LD 

051 CP 

052 JR 

053 XOR 

054 LD 

055 OUT 

056 LD 

057 INC 

058 LD 

059 OUT 

060 EGRPH DJNZ 

061 LD 

062 DJNZ 

063 ; 

064 EXIT CALL 

065 LD 

066 OUT 

067 POP 

068 POP 

069 POP 

070 POP 

071 LD 

072 CP 

073 RET 

074 ; 

075 ; Subroutines 

076 ; 

077 CLOSE 
078 



A,E 

D 

NZ, EGRPH 

A 

E,A 

(X),A 

A, (YPOS) 

A 

(YPOS), A 

(Y),A 

NGRPH 

B,C 

NXTREC 

CLOSE 

A,0FFH 

(STATUS), A 

IY 

BC 

DE 

HL 

A, (EFLAG) 





LD 

OR 

RET 

LD 

JP 



Error exit* 



079 
080 
081 
082 
083 
084 

085 ERROR 

086 ; 

087 BOMB 
088 
089 
090 
091 

092 ; 

093 X 

094 Y 

095 GRAPH 

096 STATUS EQU 

097 EFLAG DEFB 

098 YPOS DEFB 



A, (OPNFLG) 

A 

NZ 

DE,DCBEE 

4428H 



LD 

LD 

LD 

LD 

RST 

JP 

EQU 
EQU 
EQU 



A, 47 

(EFLAG) ,A 

B,A 

A, 39 

8 

EXIT 

80H 

81H 

82H 

83H 







;Same row? 



;Next row. Set X to zero 



;Go get next graphics byte 
;Go read next disk record 

;Status = graphics, waits, no incs, 



/Return if file not open 
;Go close file 

;Required Command Parameter Not Found 
;Print "ERROR nn" message 
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099 


OPNFLG 


DEFB 


1 


100 


DCBEE 


DEFS 


50 


101 


BUFFER 


DEFS 


256 


102 








103 


; INITG ~ 


Initialize M 


104 








105 


INITG 


LD 


A,10H 


106 




OUT 


(236), A 


107 




LD 


BC,15 


108 




LD 


HL , DATA 


109 


LOOP 


LD 


A, B 


110 




OUT 


(136), A 


111 




LD 


A, (HL) 


112 




OUT 


(137), A 


113 




INC 


HL 


114 




INC 


B 


115 




LD 


A,B 


116 




CP 


C 


117 




JR 


NZ,LOOP 


118 




RET 




119 


DATA 


DEFB 


99 


120 




DEFB 


80 


121 




DEFB 


85 


122 




DEFB 


8 


123 




DEFB 


25 


124 




DEFB 


4 


125 




DEFB 


24 


126 




DEFB 


24 


127 




DEFB 





128 




DEFB 


9 


129 




DEFB 





130 




DEFB 





131 




DEFB 





132 




DEFB 





133 




DEFB 





134 




DEFB 





135 


7 






136 




END 


GLOAD 



Model III Graphics Board 



:Turn on port 



; Program CRTC chip for 80 by 24 
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001 ; GPRINT - 

002 ; 


- Print graphi 


003 


PSECT 0F000H 


004 GPRINT PUSH 


HL 


005 


PUSH 


DE 


006 


PUSH 


BC 


001 


PUSH 


IX 


008 


CALL 


INITG 


009 


OR 


0DBH 


010 


OUT 


(STATUS) ,A 


011 


CALL 


INITBF 


012 ; 






013 


XOR 


A 


014 


OUT 


(X),A 


015 


LD 


(BPOS), A ; 


016 


LD 


(XLOC),A ; 


017 


LD 


HL , BGMODE 


018 


LD 


B,l 


019 


LD 


C0DH 


020 


CALL 


PRLINE 


021 ; 






022 LOOP1 


LD 


IX, BUFFER 


023 


LD 


B,240 


024 


LD 


A,B 


025 


DEC 


A 


026 


OUT 


(Y),A 


027 COLUM1S 


I LD 


HL,MASK ; 


028 


IN 


A, (GRAPH) ; 


029 


AND 


(HL) ; 


030 


CALL 


PO,SET0 ; 


031 




< 


032 


LD 


HL , BPOS '; 


033 


PUSH 


BC 


034 


LD 


B,(HL) 


035 


INC 


B 


036 DECJ 


DEC 


B 


037 


JR 


Z,PAST 


038 


RLC 


A 


039 


JR 


DECJ 


040 PAST 


POP 


BC 


041 


OR 


( IX ) 


042 


LD 


(IX), A 


043 


INC 


* / 

IX 


044 


DJNZ 


COLUMN 


045 . 




/ 


046 


LD 


A, 7 


047 


INC 


( HL ) 


048 


CP 


(HL) 


049 


CALL 


Z,PRNDRS ; 

■ ft 



Operation Manual 



;Save registers 



;Output a Control byte to cause 

; Y to automatically dec. on a read 



;Set A to 

initialize the X position 
" bit position 

location counter 



;Begin graphics print mode 

;point IX at the printer buffer 

;go through a whole column of bytes 

;Put value in A and decrement 

; so it can be put out as 

; the Y position 

;point HL at the mask byte 

? input a graphics byte 

?chop off all but proper bit 

?if result is odd parity set bit 

; otherwise bit A is 

?point HL at the bit position 

rsave register B (for DJNZ loop) 

•get count 

^increment (in case it is 0) 

move bit left BPOS number of times 

if done, move on. . . 

move bit left one position 

repeat loop 

get loop counter back 

merge A with byte of printer buffer 

put merged result in buffer 

increment buffer pointer 

continue loop 



See if BPOS has gotten to 8. 

If it has (printer uses 7 bits) 

print the buffer and reset 
BPOS to 
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050 

051 

052 

053 

054 

055 

056 

057 

058 

059 

060 

061 

062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 

081 

082 

083 

084 

085 

086 

087 

088 

089 

090 

091 

092 

093 

094 

095 

096 

097 

098 



LD 

RRC 

LD 

CP 

JR 

LD 

CP 

JP 

INC 

LD 

OUT 

JR 



HL r MASK 
(HL) 
A,80H 
(HL) 

NZ,LOOPl 
A, (XLOC) 
79 

Z,BYE 
A 

(XLOC) ,A 
(X),A 
LOOP1 



;After getting a vertical row of bits 
; rotate the mask right one position 
;Check to see if its back to 
; it's original value, if not 
; go get another row of bits 
;If so, get X pos (to increment it) 

;Check to see if we are at the end... 

;otherwise increment the X counter 
;and store it back 

;also update the port value 
•now go get another row of bits 



SET0 



LD 
RET 



PRNDRS LD 
LD 
LD 

CALL 
XOR 
LD 

• 

INITBF LD 
LD 
LD 
LD 
LD 

LDIR 
RET 



A,l 



HL , BUFFER 

B,240 

C0DH 

PRLINE 

A 



;set A to binary 0000 0001 
; and return 

;Set up the 

; PRLINE call and 

; send the buffer 

;clear A 



(BPOS),A ;reset bit position counter 



HL , BUFFER 

DE,BUFFER+1 

BC239 

A,80H 

(HL),A 



initialize the printer buffer 
; with all 80H 



PRLINE EQU 
LD 
INC 
CALL 
DJNZ 
LD 

CALL 
RET 



$ 

A, (HL) 

HL 

3BH 

PRLINE 

A,C 

3BH 



;Print a line. HL==>line to print 
;B = # characters to print 
;C = EOL char (sent after line) 
;HL, BC, AF, and DE used 



BYE 



CALL 

LD 

LD 

LD 

CALL 

POP 

POP 

POP 



PRNDRS 

HL , EGMODE 

B,l 

C0DH 

PRLINE 

IX 

BC 

DE 



;End graphics print mode 
;Restore registers 
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099 




POP 


HL 


100 




XOR 


A 


101 




RET 




102 


X 


EQU 


80H 


103 


Y 


EQU 


81H 


104 


GRAPH 


EQU 


82H 


105 


STATUS EQU 


83H 


106 J 


^ASK 


DEFB 


80H 


107 ] 


BGMODE DEFB 


12H 


108 ] 


BUFFER DEFS 


240 


109 ] 


EGMODE DEFB 


1EH 


110 BPOS 


DEFB 





111 XLOC 


DEFB 





112 t 








113 , 








114 i 


• INITG ~ 


Initialize b 


115 ; 








116 ] 


CNITG 


LD 


A,10H 


117 




OUT 


(236), A 


118 




LD 


BC,15 


119 




LD 


HL,DATA 


120 I 


iOOP 


LD 


A,B 


121 




OUT 


(136), A 


122 




LD 


A, (HL) 


123 




OUT 


(137), A 


124 




INC 


HL 


125 




INC 


B 


126 




LD 


A,B 


127 




CP 


C 


128 




JR 


NZ,LOOP 


129 




RET 




130 D 


ATA 


DEFB 


99 


131 




DEFB 


80 


132 




DEFB 


85 


132 




DEFB 


8 


133 




DEFB 


25 


134 




DEFB 


4 


135 




DEFB 


24 


136 




DEFB 


24 


137 




DEFB 





138 




DEFB 


9 


139 




DEFB 





140 




DEFB 





141 




DEFB 





142 




DEFB 





143 




DEFB 





144 




DEFB 





145 ; 








146 




END 


GPRINT 

i 
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;Mask to use in extracting bits 
; Control byte: start graphics mode 
; Printer data buffer 
; Control byte: end graphics mode 
;Bit position in printer buffer 
; Current X location value 



Model III Graphics Board 



;Turn on port 



; Program CRTC chip for 80 by 24 
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00001 ; GPRT2 -- 

00002 ; 


Print graph. 


00003 


PSECT 0F000H 


00004 GPRT2 


PUSH 


HL 


00005 


PUSH 


DE 


00006 


PUSH 


BC 


00001 


PUSH 


IX 


00008 


CALL 


INITG 


00009 


LD 


HL,BGMODE 


00010 


LD 


B,l 


00011 


LD 


C,J0DH 


00012 


CALL 


PRLINE 


W013 


LD 


C,J0 


00014 


LD 


A,0E3H 


00015 


OUT 


(STATUS), A 


00016 ; 






00017 NEWLN 


PUSH 


BC 


0001% 


LD 


HL,BUF 


00019 


LD 


DE,BUF+1 


00020 


LD 


BC,639 


00021 


LD 


A,80H 


00022 


LD 


(HL),A 


00023 


LDIR 




00024 ; 






00025 


POP 


BC 


00026 


LD 


D,l 


00027 ; 






00028 NEWRW 


LD 


A,C 


00029 


OUT 


(Y),A 


00030 


INC 


C 


00031 


LD 


HL,BUF 


00032 


XOR 


A 


00033 


OUT 


(X),A 


00034 


LD 


B,80 


00035 ; 






00036 BYTE 


PUSH 


BC 


00037 


IN 


A, (GRAPH) 


00038 


LD 


C,A 


00039 


LD 


E,80H 


00040 BIT 


LD 


A,C 


00041 


AND 


E 


00042 


JR 


Z,OFFl 


00043 


LD 


A,D 


00044 


OR 


(HL) 


00045 


LD 


(HL),A 


00046 OFF1 


INC 


HL 


00047 


SRL 


E 



Operation Manual 



ics X horizontal 



;Turn on graphics print mode 



;Graphics Y address 



; Clear buffer 



;Bit in buf to set 



; Update Y address 



;Restart X address 
;Get 80 graphics bytes 

;Save Y & loop counter 

;Save graphics byte in C 
;Get bits left to right 



;Set bit in buffer 
;Next buffer byte 
;Next bit 
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00048 


JR 


NZ f BIT 


00049 


POP 


BC 


00050 


DJNZ 


BYTE 


00051 ; 






00052 


LD 


A, 240 


00053 


CP 


C 


0005 A 


JR 


Z,DONE 


00055 


SLA 


D 


00056 


JP 


P,NEWRW 


00057 ; 






00058 


CALL 


PRINT 


00059 


JR 


NEWLN 


00060 ; 






00061 DONE 


CALL 


PRINT 


00062 


LD 


A,0FCH 


00063 


OUT 


(STATUS), A 


00064 


LD 


HL,EGMODE 


00065 


LD 


B,l 


00066 


LD 


C,0DH 


00067 


CALL 


PRLINE 


00068 


POP 


IX 


00069 


POP 


BC 


00070 


POP 


DE 


00071 


POP 


HL 


00072 


XOR 


A 


00073 


RET 




00074 ; 






00075 PRINT 


PUSH 


BC 


00076 


LD 


DE,0 


00077 PART 


LD 


HL,BUF 


00078 


ADD 


HL,DE 


00079 


XOR 


A 


00080 


CP 


(HL) 


00081 


JR 


Z , EPRT 


00082 


LD 


BC, (CTL) 


00083 


CALL 


PRLINE 


00084 


LD 


HL,214 


00085 


ADD 


HL,DE 


00086 


EX 


DE,HL 


00087 


JR 


PART 


00088 EPRT 


POP 


BC 


00089 


RET 




00090 ; 






00091 PRLINE 


: EQU 


$ 


00092 


PUSH 


DE 


00093 PRL2 


LD 


A, (HL) 


00094 


INC 


HL 


00095 


CALL 


3BH 


00096 


DJNZ 


PRL2 



;Last Y address? 
;Next bit in buffer 

;Print buffer 



;Turn off graphics print 



;Offset for print buffer 



;End of buffer? 



;Next part of buffer 



;Print a line. HL==>line to print 

;B = # characters to print 

;C = EOL char (sent after line) 

;HL, BC, AF, and DE used 
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00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

0012 6 

0012 7 

0012 8 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 



LD 

OR 

CALL 

POP 

RET 

INITG — 



INITG LD 
OUT 
LD 
LD 
LOOP LD 
OUT 
LD 
OUT 
INC 
INC 
LD 
CP 
JR 
RET 
DATA DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



BGMODE DEFB 

EGMODE DEFB 

CTL DEFB 

DEFB 

BUF DEFS 

DEFB 

DEFB 

DEFB 

X EQU 

Y EQU 



A,C 

A 

NZ f 3BH 

DE 



Initialize Model III Graphics Board 

A,10H 

(236), A ;Turn on port 

BC,15 

HL,DATA 

A '® ; Program CRTC chip for 80 by 24 

\ X J ) f Jn. 

A, (HL) 

(137), A 

HL 

B 

A,B 

C 

NZ,LOOP 



99 

80 

85 

8 

25 

4 

24 

24 


9 








12H 

1EH 



214 

640 



0DH 



80H 

81H 



; Print 214 char, followed by null 

;Filler 

; Carriage return 

;End of buffer signal 
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00T146 GRAPH EQU 82 H 

091141 STATUS EQU 83H 

00148 ; 

00149 END GPRT2 
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00001 

00002 

00003 

00004 

00005 

00006 

00001 

00008 

00009 

00010 

00011 

00012 

00013 

00 01 A 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

0004 4 

00045 

00046 

00047 

0004 8 



GPRT3 — Print graphics X horizontal double Y axis 



GPRT3 



NEWLN 



NEWRW 



NEWR1 



BYTE 



PSECT 


' 0F000H 


PUSH 


HL 


PUSH 


DE 


PUSH 


BC 


PUSH 


IX 


CALL 


INITG 


LD 


HL,BGMODE 


LD 


B,l 


LD 


C,0DH 


CALL 


PRLINE 


LD 


C,0 


LD 


A,0E3H 


OUT 


(STATUS), A 


LD 


D,3 


PUSH 


BC 


PUSH 


DE 


LD 


HL , BUF 


LD 


DE,BUF+1 


LD 


BC,639 


LD 


A,80H 


LD 


(HL),A 


LDIR 




POP 


DE 


POP 


BC 


LD 


A,C 


OUT 


(Y),A 


LD 


A,40H 


CP 


D 


JR 


Z , NEWR1 


INC 


C 


LD 


HL , BUF 


XOR 


A 


OUT 


(X),A 


LD 


B,80 


LD 


A, 4 


CP 


D 


JR 


NZ,BYTE 


LD 


D,6 


PUSH 


BC 


IN 


A, (GRAPH) 


LD 


C,A 


LD 


E,80H 



rTurn on graphics print 



; Graphics Y address 



;Bit(s) in buf to set 



;Clear buffer 



; Update Y address 



;If printing row second time 
;Move to next row 



; Restart X address 
;Get 80 graphics bytes 



;Save Y & loop counter 

;Save graphics byte in C 
;Get bits left to right 



Radio /hack 



-87- 



Computer Graphics 



Operation Manual 



00049 


BIT 


LD 


A,C 


00050 




AND 


E 


00051 




JR 


Z,OFFl 


00052 




LD 


A,D 


00053 




OR 


(HL) 


00054 




LD 


(HL),A 


00055 


0FF1 


INC 


HL 


00056 




SRL 


E 


00057 




JR 


NZ,BIT 


00058 




POP 


BC 


00059 




DJNZ 


BYTE 


00060 


• 






00061 




LD 


A, 240 


00062 




CP 


C 


00063 




JR 


Z,DONE 


00064 




SLA 


D 


00065 




SLA 


D 


00066 




JR 


Z , ENDRW 


00067 




JP 


P,NEWRW 


00068 




LD 


A,7FH 


00069 




AND 


D 


00070 




LD 


D,A 


00071 




JR 


NZ,NEWRW 


00072 




LD 


D,3 


00073 




JR 


ENDR2 


00074 


• 






00075 


ENDRW 


LD 


D,l 


00076 


ENDR2 


PUSH 


DE 


00077 




CALL 


PRINT 


00078 




POP 


DE 


00079 




JR 


NEWLN 


00080 


• 






00081 


DONE 


CALL 


PRINT 


00082 




LD 


A,0FCH 


00083 




OUT 


(STATUS), A 


00084 




LD 


HL,EGMODE 


00085 




LD 


B,l 


00086 




LD 


CJ0DH 


00087 




CALL 


PRLINE 


00088 




POP 


IX 


00089 




POP 


BC 


00090 




POP 


DE 


00091 




POP 


HL 


00092 




XOR 


A 


00093 




RET 




00094 


f 






00095 


PRINT 


PUSH 


BC 


00096 




LD 


DE,0 


00097 


PART 


LD 


HL, BUF 



;Set bit in buffer 
;Next buffer byte 
;Next bit 



;Last Y address? 
;Next bit in buffer 



;Print buffer 



;Turn off graphics print 



;Offset for print buffer 
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00098 




ADD 


HL,DE 


00099 




XOR 


A 


00100 




CP 


(HL) 


00101 




JR 


Z , EPRT 


00102 




LD 


C, (CTL) 


00103 




CALL 


PRLINE 


00104 




LD 


HL,214 


00105 




ADD 


HL,DE 


00106 




EX 


DE,HL 


00107 




JR 


PART 


00108 


EPRT 


POP 


BC 


00109 




RET 




00110 


• 






00111 


PRLINE 


EQU 


$ 


00112 




PUSH 


DE 


00113 


PRL2 


LD 


A, (HL) 


00114 




INC 


HL 


00115 




CALL 


3BH 


00116 




DJNZ 


PRL2 


00117 




LD 


A,C 


00118 




OR 


A 


00119 




CALL 


NZ,3BH 


00120 




POP 


DE 


00121 




RET 




00122 








0012 3 


; INITG — 


Initialize 


00124 








00125 


INITG 


LD 


A,10H 


00126 




OUT 


(236), A 


00127 




LD 


BC,15 


00128 




LD 


HL,DATA 


00129 


LOOP 


LD 


A,B 


00130 




OUT 


(136), A 


00131 




LD 


A, (HL) 


00132 




OUT 


(137), A 


00133 




INC 


HL 


00134 




INC 


B 


00135 




LD 


A,B 


00136 




CP 


C 


00137 




JR 


NZ,LOOP 


00138 




RET 




00139 


DATA 


DEFB 


99 



;End of buffer? 



;Next part of buffer 



;Print a line. HL==>line to print 

;B = # characters to print 

;C = EOL char (sent after line) 

;HL, BC, AF, and DE used 



;Turn on port 

; Program CRTC chip for 80 by 24 
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00140 




DEFB 


80 


— TRS-80 w -__——— 




00141 




DEFB 


85 






00142 




DEFB 


8 






00143 




DEFB 


25 






00144 




DEFB 


4 






00145 




DEFB 


24 






00146 




DEFB 


24 






00147 




DEFB 









00148 




DEFB 


9 






00149 




DEFB 









00150 




DEFB 









00151 




DEFB 









00152 




DEFB 









00153 




DEFB 









0015 4 




DEFB 









00155 


7 










00156 


BGMODE 


DEFB 


12H 






00157 


EGMODE 


DEFB 


1EH 






00158 


CTL 


DEFB 









00159 




DEFB 


214 


; Print 214 char, followed by 


null 


00160 


BUF 


DEFS 


640 






00161 




DEFB 





;Filler 




00162 




DEFB 


0DH 


;Carriage return 




00163 




DEFB 





;End of buffer signal 




00164 


X 


EQU 


80H 






00165 


Y 


EQU 


81H 






00166 


GRAPH 


EQU 


82H 






00167 


STATUS 


EQU 


83H 






00168 


• 
t 










00169 




END 


GPRT3 
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Appendix A/ BASICG/Utilities Reference Summary 



Argument ranges are indicated below by special letters and 
words : 

ar is a.single-precision floating point number > 0.0 (to 

1* 10 ), 

b is an integer expression of either or 1 . 

B specifies a box. 

BF specifies a shaded box. 

c is an integer expression of or 1 . 

n is an integer expression from to 2. 

£ is an integer expression from to 3. 

r is an integer expression from to 639. 

x is an integer expression from to 639. 

X is an integer expression from to 239. 

action is either AND, PSET, PRESET, OR, or XOR. 

background is a string of either or 1 . 

border is an integer expression of either or 1. 

end is an expression from -6.283185 to 6.283185. 

start is an expression from -6.283185 to 6.283185. 

switch is an integer expression of or 1 . 

tiling is a string or an integer expression of or 1. 

fc yP e is an integer expression of or 1 . 



CIRCLE ( x,y )r,c, start , end , ar Draws a circle, 
ellipse, semicircle, arc, or point. 

CIRCLE (100,100) ,25,1 CIRCLE (150, 150) , 40,1 ,,,. 6 

CIRCLE(100,100),100,PI,2*PI,5 CIRCLE (-50,-50) , 200 

CLS Clears the Text Screen and video memory. 
CLS SYSTEM "CLS" 

CLR Clears the Graphics Screen. 
CLR 

GCLS Clears the Graphics Screen and memory. 

GCLS CMD "I","GCLS" 100 CMD "I" , "GCLS " 
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GET (xl x Yl)-( x2 > y2 ), array name Reads the contents 
of a rectangular pixel area into an array. 
GET(10,10)-(50,50),V 

GLOAD filename/ext. password ;d Loads graphics 
memory . 

GLOAD PROG CMD " I " , " GLOAD PROG" 

GLOCATE (x,y) . direction Sets the Graphics Cursor 
GLOCATE (320,120),jel 

GPRINT Dumps graphic display on the printer. 

GPRINT CMD "I", "GPRINT" 100 CMD "I" , "GPRINT" 

GPRT2 Dumps graphic display on the printer without 
rotating 90 degrees. 
GPRT2 CMD"I","GPRT2" 100 CMD"I" , "GPRT2 " 

GPRT3 Dumps graphic display on the printer without 
rotating 90 degrees. 
GPRT3 CMD" I", "GPRT3" 100 CMD" I" , "GPRT3" 

GROFF Turns Graphic Display OFF. 
GROFF CMD " I " , " GROFF " 

GRON Turns Graphic Display ON. 
GRON CMD "I", "GRON" 

GSAVE filename/ext. password ;d Saves graphics 
memory . 

GSAVE PROG CMD "I", "GSAVE PROG" 

LINE ( xl , yl ) - ( x2 , y2 ) , c , B or BF, style Draws a 
line/box. 

LINE -(100,100) LINE(100,100)-(200,200),1,B,45 

LINE(0,jef)-(100,100),l,BF LINE (-200, -200 )- (100,100) 

PAINT (x,y), tiling , border background Paints the 
screen. 

PAINT(320,120),1,1 PAINT( 320,120) , "DDDDD" ,1 
PAINT(320,120),A$,1 

PAINT (320, 120 ) ,CHR$ (0)+CHR$ (&HFF) ,J0,CHR$ (&H00) 
PAINT ( 320 , 120 ) , CHR$ (E ) +CHR$ (77 ) +CHR$ ( 3 ) 

SPOINKx^) A function. Tests graphics point. 

PRINT &POINT( 320,120) IF &POINT( 320,120)=1 THEN . . . 
PRINT &POINT(320,120) ,-1 

PRESET ( x,y ) y switch Sets pixel OFF or ON. 
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PRESET (100 ,100) ,0 



PRINT #-3, item list Write text characters to the 
Graphics Screen. 
PRINT #-3, "MONTHLY" 

PSET( x,y ) f switch Sets pixel ON or OFF. 
PSET(100,100),1 

PUT ( xl,yl ), array name , action Puts graphics from 
an array onto the screen . 

PUT (100, 100) ,A,PSET PUT (100 ,100) ,A,AND 

PUT(A,B) ,B 

SCREEN type Selects the screen. 
SCREEN 

VIEW( xl,yl )-( x2,y2 ),c,b Redefines the screen and 
creates a viewport. 
VIEW(100,100)-(150,150) VIEW (100, 100) - (150,150) ,0,1 

&VIEW(j>) A function. Returns viewport's coordinates. 
PRINT &VIEWU) 
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Appendix B/ BASICG Error Messages 

Code Abbreviation Explanation 

1 NF NEXT without FOR. NEXT is used without 

a matching FOR statement. This error 
may also occur if NEXT variables are 
reversed in a nested loop. 

iricorrect punctuation, an illegal 



RG RETURN without GOSUB. A RETURN 

statement was executed with insufficient 
data available. The DATA statement may 
have been left out or all data may have 
been read. 

OK Out of diti. A R1AD stafc 

: L -v®cectited:-';wi1;h- iniMif $ icienfe data - 

• : ^:vavai ; ia;bl©;* . T^ have 

b^en left out or all data; may have been 



p C Illegal function call. An attempt was 
made to execute an operation using an 
illegal parameter. Graphic examples: 
PUTting a display that is partially off 
the Screen f GETting an array that is not 
properly dimensioned , or using more than 
two OFF tiles or two ON tiles in a 
string when tiling (with PAINT). 

fe ^ 

derived or input is too lar^ 

integer range is (-32768 to 32767) for 

^'.-V;.^;,. -. ;.?:' :-;>-\B^XCG".. . • ; ' ' ''■•■"■:."''■■,■: 

0M Out of memory. All available memory 
has been used or reserved. This may 
occur with large array dimensions and 
nested branches such as GOSUB and 
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FOR/NEXT loops. 

8 OL Undefined line. An attempt was made 

9 BS Bad subscript. An attempt was made to 

assign an array element with a subscript 
beyond the dimensioned range. 

10 • ■ '• DD Double-dimensioned array. An attempt 

was made to dimension an array which 
had previously been created with DIM 
or by default statements. ERASE must be I 



11 /0 Division by zero. An attempt was made 

to use a value of zero in the 
denominator. Note: If you can't find an 
obvious division by zero, check for 
division by numbers smaller than 
allowable ranges (see OV) . 

12 ID Illegal di r ect . An attempt was made to 

in an immediate (non~program) line . 

13 TM Type mismatch. An attempt was made to 

assign a number to a string variable or a 
string to a numeric variable. 



14 ;••.•;.;•• ;. OS •" ; .v •••• OtJt of string space . The amount of , ' : 

String space allocated was exceeded* Use 
CLEAR to allocate more string space . 100 

allocation. 



15 LS Long string. A string variable was 

assigned a string which exceeded 255 
characters in length. 

16 ;,st : ; : ::.;- : ;•;;:;;: /String; too complex. A string operation 



17 CN Can't continue. A CONT command was given 

at a point where the command can't be 
carried out, e.g., directly after the 
program has been edited. 
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19 NR No RESUME. During an error-trapping 

routine, BASICG has reached the end of 
the program without encountering a 
RESUME. 

21 UE Undefined error. Reserved for future 

use. 

23 BO Buffer overflow. An attempt was made 

to input a data line which has too many 
characters to be held in the line 
buffer. 

25-49 UE Undefined error. Reserved for future 

use. 

file is first opened. The default length 

51 IE Internal error. Also indicates an 

attempt to use EOF on a file which is not 
open. 
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that is not open or that is greater than 

53 FF File not found. Reference was made in a 

LOAD / KILL or OPEN statement to a file 
which did not exist on the diskette 
specified. 

perform direct access on a file opened 

55 AO File already open. An attempt was made 

to open a file that was already open. 
This error is also output if KILL, 
LOAD, SAVE, etc., is given for an open 
file. 

57 UE Undefined in Model III BASIC. 

59 DF Diskette full. All storage space on the 

diskette has been used. KILL unneeded 
files or use a formatted diskette which 
has available space. 

61 RN Bad record number. In a PUT or GET 

statement, the record number is either 
greater than the allowable maximum, 
equal to zero, or negative. 

63 MM Mode mismatch. A sequential OPEN was 

executed for a file that already existed 
on the diskette as a direct access file, 
or vice versa. 



Radio /hack 



-123- 



Computer Graphics 



Operation Manual 



64 



UE 



Undefined error. Reserved for future 



use. 




Too many files. 
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Appendix C/ Subroutine Language Reference Summary 

CIRCLE (radius, color , start , end ,ar) Draws a 
circle, ellipse, semicircle, arc, or point. 
( x ?y ) coordinates set by SETXY. 
CALL CIRCLE ( 100, 1,0,0,0) 

CLS Clears the Graphics Screen. 
CALL CLS 

FVIEW (n) Returns viewport parameter. 
I=FVIEW(0) 

GET ( array , size ) Reads the contents of a rectangular 
pixel area into an array for future use by PUT 
CALL GET (A, 4000) 

GPRINT ( size , array ) Displays textual data. 
CALL GPRINT (28,ARRAYl) 

GRPINI ( option ) Graphics initialization routine. 
CALL GRPINI (0) 

LINE ( color , style ) Draws a line. 
Coordinates set by SETXY or SETXYR. 
CALL LINE (1,-1) 

LINEB ( color , style ) Draws a box. 
Coordinates set by SETXY or SETXYR. 
CALL LINEB (1,-1) 

LINEBP ( color ) Draws a filled box. 
Coordinates set by SETXY or SETXYR. 
CALL LINEBF (1) 

LOCATE (n) Sets the direction for displaying textual 
data. 

CALL LOCATE (0) 

PAINT ( color , border ) Paints the screen. 
CALL PAINT (1,1) 

PAINTT ( array T , border , array S ) Paints the screen 
with defined paint style. 
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CALL PAINTT (A,1,V) 



POINT Returns the pixel value at current coordinates. 
K=POINT(M) 

PRESET ( color ) Sets the pixel ON or OFF. 
CALL PRESET (0) 

PSET ( color ) Sets the pixel ON or OFF. 
CALL PSET(jZf) 

SCREEN ( type ) Sets the screen. 
CALL SCREEN (1) 

SETXY(X f Y) Sets the coordinates (absolute). 
CALL SETXY (100,100) 

SETXYR(X,Y) Sets the coordinates (relative). 
CALL SETXYR(50,50) 

VIEWdeftX, leftY , rightX , rightY , color , border ) 

Sets the viewport. 

CALL VIEW ( 100 ,100, 200, 200, 0,1) 
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Appendix D/ Sample Programs 

BASICG 

10 • 

20 • Pie Graph Program ("PECANPIE/GRA" ) 

30 ' 

40 • Object 

50 • The object of this program is to draw a pie graph of the 

60 ' expenses for a given month of eight departments of a company, 

10 along with the numerical value of each pie section 

80 • representation. 

90 • 

100 • 

110 ' Running the program 

120 • The month and the amounts spent by each department are input, 

130 • and the program takes over from there. 

140 ' 

150 • Special features 

160 ' The amounts spent by each account as well as the total 

170 • amount spent are stored in strings. The program will 

J-80 ' standardize each string so that it is 9 characters long 

190 « and includes two characters to the right of the decimal 

200 • point. This allows for input of variable length and an 

210 ' optional decimal point. 

220 • 

230 ' The various coordinates used in the program are found 

240 • based on the following equations: 

250 ' 

260 ' x = r * cos(theta) 

270 • y = r * sin(theta) 

280 ' 

290 ' where x and y are the coordinates, r is the radius, and theta 

??f* ' is rt he an 9 le - (Note: The y-coordinates are always multiplied 

310 * by 0.5. This is because the y pixels are twice the size of the 

320 ' x pixels. ) 

330 • 

340 ' If an angle theta is generated by a percent less than 1%, the 

350 • section is not graphed, and the next theta is calculated. 

360 ' However, the number will still be listed under the kev. 

370 ' J 

380 « Variables 

390 • ACCT$(i) Description of the account 

400 ' BUD$(i) Amount spent by the account 
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410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 



Computer Graphics 



DS$ 

HXCOL 

HYRW 

I 

MN$ 

PER ( i ) 

R 

T0 

Tl 

TBUD$ 

THALF 

TILE$(i) 

TWOPI 

X0 

XP 
Y0 

YP 



Operation Manual 



Dollar sign (used in output) 

Column number for the pie section number 

Row number for the pie section number 

Counter 

Month 

Percent value of BUD$(i) 

Radius of circle 

Angle value line to be drawn 

Angle value of the next line 

Total of all the BUD$(i)'s 

Angle halfway between Tl and T0 (used for 

location position for section number) 

Paint style for each section 

Two times the value of pi 

X-coordinate for drawing the line represented 

by T0 

X-coordinate for 
Y-coordinate for 
by T0 
Y-coordinate 



painting a section 

drawing the line represented 



for painting a section 



Set initial values 



CLEAR 1000 

DIM THALF ( 15 ) , BUD$ ( 15 ) , ACCT$ (15), PER (16) 

TWOPI=2*3. 14159 

R=180 

DS$="$" 

ACCT$(1) 

ACCT$ ( 2 ) 

ACCT$ ( 3 ) 

ACCT$ ( 4 ) 

ACCT$(5) 

ACCT$ ( 6 ) 

ACCT$ ( 7 ) 

ACCT$ ( 8 ) 



"Sales" 

"Purchasing" 

"R&D 

"Accounting" 

"Advertising " 

"Utilities " 

"Security " 

"Expansion" 
TILE$ (0 )=CHR$ ( &H22 )+CHR$ ( &H00 ) 
TILE$ ( 1 ) =CHR$ ( &HFF ) +CHR$ ( &H00 ) 
TILE$ ( 2 )=CHR$ ( &H99 )+CHR$ ( &H66 ) 
TILE$(3)=CHR$(&H99) 
TILE$(4)=CHR$(&HFF) 

TILE$ ( 5 ) =CHR$ ( &HF0 ) +CHR$ ( &HF0 ) +CHR$ ( &H0F ) +CHR$ ( &H0F ) 
TILE$ ( 6 )=CHR$ ( &H3C ) +CHR$ ( &H3C ) +CHR$ ( &HFF ) 
TILE$ ( 7 )=CHR$ ( &H03 ) +CHR$ ( &H0C ) +CHR$ ( &H30 ) +CHR$ ( &HC0 ) 



Enter values to be graphed, 
the percent they represent 



standardize them, and calculate 
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900 CLR 

910 CLS 

920 SCREEN1 

930 PRINT @64, "Enter month " 

940 PRINT @192,"Enter amount spent by" 

950 PRINT @256,"$" 

960 PRINT @0,"" 

970 LINE INPUT "Enter month ";MN$ 

980 FOR 1=1 TO 8 

990 PRINT @214,ACCT$(I);" 

1000 PRINT §256 f "$" 

1010 PRINT @192,"" 

1020 LINE INPUT n $";BUD$(I) 

1030 IF INSTR(BUD$( I ),".") - THEN BUD$ (I)=BUD$ (1)+" .00" 

1040 IF LEN(BUD$(I))<9 THEN BUD$(I)=" "+BUD$ ( I) :GOTO 1040 

1050 TBUD$=STR$(VAL(TBUD$)+VAL(BUD$(D) ) 

1060 NEXT I 

1070 IF INSTR(TBUD$,"." )=0 THEN TBUD$=TBUD$+" .00" 

1080 IF LEN(TBUD$)<9 THEN TBUD$=" "+TBUD$:GOTO 1080 

1090 FOR 1=1 TO 8 

1100 PER ( I ) =VAL ( BUD$ ( I ) ) /VAL ( TBUD$ ) *100 

1110 NEXT I 

1120 SCREEN0 

1130 • 

1140 • Draw the circle and calculate the location of the lines and 

1150 ' the line numbers 

1160 ■ 

1170 CIRCLE(410,120),R 

1180 FOR 1=0 TO 8 

1190 T0=TWOPI/100*PER(I)+T0 

1200 X0=410+R*COS(T0) 

1210 Y0=120-R*SIN(T0)*0.5 

1220 T1=TWOPI/100*PER(I+1)+T0 

1230 THALF(I)=(T0+Tl)/2 

1240 HXCOL=(410+R*1.15*COS(THALF(D) ) 

1250 HYRW=(120-R*1.15*SIN(THALF(I))*0.5) 

1260 IF PER(I)>1 THEN LINE (410,120)- (X0,Y0) 

1270 GLOCATE ( HXCOL , H YRW ) , 

1280 IF I<8 AND PER(I+1)>1 THEN PRINT #-3,1+1 

1290 NEXT I 

1300 • 

1310 ' Paint the appropriate sections of the pie 

1320 « 

1330 FOR 1=0 TO 7 

1340 XP=410+R*0.5*COS(THALF(D) 

1350 YP=120-R*0.5*SIN(THALF(I) )*0.5 

1360 IF PER(I+1)<=1 THEN 1380 

1370 PAINT (XP,YP) ,TILE$(I),1 

1380 NEXT I 
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1390 • 

1400 ' Print the key for the graph 

1410 • 

1420 GLOCATE(0 f 10),0 

1430 PRINT #-3 /'Expenditures for" 

1440 GLOCATE(0,25),0 

1450 PRINT #-3 f MN$ 

1460 GLOCATE(0,40)/0 

1470 PRINT #-3,"# Description Amount" 

1480 FOR 1=1 TO 8 

1490 GLOCATE(0, (4+I)*15),0 

1500 PRINT #-3, I 

1510 GLOCATE(40, (4+I)*15),0 

1520 PRINT #-3,ACCT$(I) 

1530 GLOCATE(130,(I+4)*15),0 

1540 PRINT #-3,DS$;BUD$(I) 

1550 DS$=" " 

1560 NEXT I 

1570 GLOCATE(0,195),0 

1580 PRINT #-3,STRING$(26,"-") 

1590 GLOCATE(40,210),0 

1600 PRINT #-3 /'Total ";TBUD$ 

1610 FOR 1=1 TO 10000 

1620 NEXT I 

1630 SCREEN1 

1640 END 
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10 ' "THREEDEE/GRA" 

20 • 

30 ' Object 

40 • The object of this program is to produce a three 

50 ' dimensional bar graph representation of the gross 

60 • income for a company over a one year period. 

10 ' 

80 ' Variables 

90 ' A Vertical alphanumeric character 

100 ' BMSG$ Bottom message 

110 • CHAR$ Disk file input field 

120 • GI$ Gross income 

130 ■ I Counter 

140 ' J Counter 

150 ■ MN$ Month 

160 ' REC Record number of vertical character 

170 ' Sl$ Single character of vertical message 

180 ' TILE$ Tile pattern for painting 

190 ' TTINC Total income for the year 

200 » X X-coordinate of bar 

210 ' Y(i) Y-coordinate of bar 

220 ' 

230 'Input/output 

240 ■ The program prompts you to enter the gross income, in millions. 

250 'for each month. The program requires these values to be between one 

260 'and nine. 

270 • 

280 'Set initial values 

290 ' 

300 CLS 

310 DIM Y(12),A(8),MN$(12) 

320 DEFINT A 

330 VMSG$=" Millions of dollars " 

340 TMSG$="G ross Income For 19 8 0" 

350 BMSG$="M o n t h" 

360 MN$(l)="January" 

370 MN$(2)="February" 

380 MN$(3)="March" 

390 MN$(4)="April" 

400 MN$(5)="May" 

410 MN$(6)="June" 

420 MN$(7)="July" 

430 MN$(8)="August" 

440 MN$( 9)=" September" 

450 MN$( 10)= "October" 

460 MN$( 11)= "November" 

470 MN$(12)="December" 

480 TILE$=CHR$(&H99)+CHR$(&H66) 
490 X=-10 
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500 • 

510 'Input gross income, and calculate the Y-coordinate 

520 ' 

530 FOR 1=1 TO 12 

540 CLS 

550 PRINT "Enter gross income in millions (1-9) for ";MN$(D 

560 LINE INPUT "$";GI$ 

570 Y(I)=205-20*VAL(GI$) 

580 TTINC=TTINC+VAL(GI$) 

590 NEXT I 

600 CLR 

610 SCREEN0 

620 • 

630 'Draw the graph and bars 

640 • 

650 FOR 1=1 TO 12 

660 CLS 

670 X=X+50 

680 LINE (X,Y(I))-(X+20,205),1,BF 

690 LINE -(X+40 f 195) 

700 LINE -(X+40,Y(I)-10) 

710 LINE -(X+20,Y(I)-10) 

720 LINE -<X,Y(I)) 

730 LINE (X+20,Y(I))-(X+40,Y(I)-10) 

740 PAINT(X+21,Y(I)+2),TILE$,1 

750 NEXT I 

760 GLOCATE(40,215),0 

770 PRINT #-3, "Jan Feb Mar Apr May June July Aug Sept Oct 

Nov Dec" 

780 GLOCATE(290,230),0 

790 PRINT #-3,BMSG$ 

800 FOR 1=1 TO 10 

810 IF I>9 THEN C=l ELSE C=2 

820 GLOCATE( (C*10)-5 , ( 20-1*2 ) *10) ,0 

830 PRINT #-3,STR$(I);"-" 

840 NEXT I 

850 LINE (35,0)-(35,205) 

860 LINE -(639,205) 

870 GLOCATE(0,180),3 

880 PRINT #-3,VMSG$ 

890 GLOCATE( 220,0) ,0 

900 PRINT #-3,TMSG$ 

910 GLOCATE(260,10),0 

920 PRINT #-3," (Total income is" ;TTINC; " million)" 

930 FOR 1=1 TO 10000 

940 NEXT I 

950 SCREEN1 

960 END 
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Printing Graphics Displays 



There are many ways to use the stand-alone utilities 
(described in Graphic utilities). The following discussion 
demonstrates one way to use the utilities with graphic 
displays generated under BASICG. 

To print graphics, follow these steps: 

1. When TRSDOS Ready appears, set FORMS to FORMS (WIDTH>255, 
LINES=60). (See your Model III Disk System Owner's 
Manual . ) 

2. Set the printer into Graphic Mode, if possible, and set 
the printer's other parameters (elongation, non-elongated, 
etc.), if applicable, according to instructions in your 
printer owner's manual. 

3. Write, run and save your program as a BASICG program file. 

4. Save the graphics memory to diskette using GSAVE. 

5. Load the file into memory using GLOAD. 

6. Enter the print command GPRINT. 

Example 

1. Set FORMS with your printer's printing parameters. 
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2. Load BASICG and type in this program: 

5 SCREEN 

10 DEFDBL Y 

20 CLR 

30 LINE (0,120) -(640,120) 

40 LINE (320,0)-(320,240) 

50 FOR X=0 TO 640 

60 PI=3. 141259 

70 X1=X/640*2*PI-PI 

80 Y=SIN(X1)*100 

90 IF Y>100 THEN X=X+7 
100 PSET (X,-Y+120) 
110 NEXT X 
120 GLOCATE(0,0),0 
130 PRINT #-3, "THIS IS A SINE WAVE." 



3 . RUN the program 



The program draws a sine wave on the Graphics Screen 
(graphics memory) and prints the statement in line 130 
("THIS IS A SINE WAVE.") on the Graphics Screen. 

4. SINE (for sine wave) is the name we are giving this 
TRSDOS file. To save the contents of the graphics 
memory (which now includes the converted video memory) 
to diskette, type: CMD " I " , " GS AVE SINE" <ENTER>. 

5. The graphics memory is saved as a TRSDOS file on your 
diskette and you will return to TRSDOS Ready. 

6. Type: GCLS <ENTER> 

The graphics memory is now cleared. 

7. To load the file back into memory, type: 

GLOAD SINE <ENTER> 
The display is now on the Graphics Screen. 

8. To print, type: GPRINT <ENTER> . 
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FORTRAN Sample Programs 



00100 

00200 

00300 

00400 

00500 

00600 

00100 

00800 

00900 

01000 

01100 

01200 

01300 

01400 

01500 

01600 

01700 

01800 

01900 

02000 

02100 

02200 

02300 

02400 

02500 

02600 

02700 

02800 

02900 

03000 

03100 

03200 

03300 

03400 

03500 

03600 

03700 

03800 

03900 

04000 

04100 

04200 

04300 

04400 



C 
C 



C 
C 
C 

C 
C 
C 

C 
C 
C 

C 
C 
C 

C 
C 
C 

C 
C 
C 

C 
C 
C 

C 
C 
C 

C 

c 
c 

c 
c 
c 



HIGH RESOLUTION GRAPHICS TEST - MAIN PROGRAM 

CALL GRPINK0) 
CALL SCREEN (0) 

CIRCLE TEST 

CALL CTEST 

LINE TEST 

CALL LTEST 

LINEB TEST 

CALL LBTST 

LINEBF TEST 

CALL LBFTST 

PAINTT TEST 

CALL PTTTST 

GET AND PUT TEST 

CALL GPTST 

PSET/POINT TEST 

CALL PPTST 

PRESET/POINT TEST 

CALL PRETST 

SCREEN TEST 

CALL SCRTST 

VIEW/FVIEW TEST 

CALL VTEST 
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04500 CALL CLS(2) 

04600 END 
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00100 

00200 

00300 

00400 

00500 

00600 

00700 

00800 

00900 

01000 

0110JZT 

01200 

01300 

01400 

01500 

01600 

01700 

01800 

01900 

02000 

02100 

02200 

02300 

02400 

02500 

02600 

02700 

02800 

02900 

03000 

03100 

03200 

03300 

03400 

03500 

03600 

03700 

03800 

03900 

04000 

04100 

04200 



C 
C 
C 



100 



10 

C 

C 

c 



11 



SUBROUTINE CTEST 

THIS SUBROUTINE TESTS CIRCLE, SETXY, AND PAINT 

LOGICAL MSG(29) 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT ('TEST CIRCLE, SETXY, AND PAINT') 

CALL SETXY (0,0) 

CALL LOCATE (0) 

CALL GPRINT(29,MSG) 

CALL WAIT 

CALL VIEW(0,30,639,239,0,0) 

DO 10 1=1,100 

IX=MOD( 1*17, 640) 

IY=MOD(I*13,210) 

IR=I*1.5 

START=MOD ( 1 , 1 3 ) -6 . 

END=MOD(I*3,13)-6.0 

IF ( START. LT. END) GOTO 1 

T=START 

START=END 

END=T 

CONTINUE 

RATIO=MOD(I*3,100) 

IF ( RATIO. GT.0) RATIO=RATIO/40. 

CALL SETXY ( IX, IY) 

CALL CIRCLE (IR,1, START, END, RATIO) 

CONTINUE 

RANDOMLY FILL IN THE AREAS 

DO 11 1=1,50 

IX=MOD( 1*23, 640) 

IY=MOD( 1*11, 210) 

CALL SETXY ( IX, IY) 

CALL PAINT (1,1) 

CONTINUE 

CALL WAIT 

CALL VIEW(0, 0,639, 239, -1,-1) 

RETURN 

END 
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C 
C 
C 



100 



10 



C 
C 
C 



11 



12 

C 
C 
C 



SUBROUTINE LTEST 

THIS ROUTINE EXERCISES LINE 

LOGICAL MSG(19) 

CALL CLS(0) 

ENCODE (MSG, 100) 

FORMAT ( 'LINE AND PAINT TEST 1 ) 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(19,MSG) 

CALL WAIT 

J=100 

DO 10 1=1, 639 , 2 

CALL SETXY(I,15) 

CALL SETXY(I,239) 

CALL LINE (1, J) 

J=J-1 

CONTINUE 

CALL WAIT 

CALL VIEW(0,15, 639,239,0,0) 

CALL CLS 

DRAW WHITE LINES AND FILL IN RANDOMLY 

IX=MOD( 1*19, 639) 
IY=MOD( 1*17, 223) 
CALL SETXY(IX,IY) 
DO 11 1=1,100 
IX=MOD( 1*23, 639) 
IY=MOD( 1*29, 223) 
CALL SETXY(IX,IY) 
CALL LINE (1,-1) 
CONTINUE 
DO 12 1=1,50 
IX=MOD( 1*31, 639) 
IY=MOD( 1*37, 223) 
CALL SETXY(IX,IY) 
CALL PAINT (1,1) 
CONTINUE 
CALL WAIT 

WHITE OUT SCREEN, DRAW BLACK LINES, PAINT BLACK RANDOMLY 

CALL VIEW(0,15,639,239,1,1) 
DO 15 1=1,100 
IX=MOD( 1*11, 639) 
IY=MOD( 1*13, 223) 
CALL SETXY(IX,IY) 
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15 



16 
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CALL LINE (0,-1) 

CONTINUE 

DO 16 1=1 , 50 

IX=MOD( 1*17, 639) 

IY=MOD( 1*19, 223) 

CALL SETXY(IX,IY) 

CALL PAINT (0,0) 

CONTINUE 

CALL WAIT 

CALL VIEW(0, 0,639, 239, 0,0) 

RETURN 

END 
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SUBROUTINE LBFTST 

LINEBF TEST 

LOGICAL MSG(ll) 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT ( 'LINEBF TEST 1 ) 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(11,MSG) 

CALL WAIT 

IXP=639 

ICLR=1 

DO 10 IX=0,120 

CALL SETXY(IX*2,IX+30) 

CALL SETXY(IXP,IXP-400) 

CALL LINEBF (ICLR) 

IXP=IXP-3 

ICLR=ICLR-1 

IF (ICLR.LT.0) ICLR=1 

CONTINUE 

CALL WAIT 

RETURN 

END 
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SUBROUTINE PTTTST 

PAINT WITH TILES TEST 

LOGICAL A(65),B(4),IS(16),MSG(23) 

DATA A(l)/8/ 

X 

DATA A^WAO^AU^AfSJ/XUl'fX^'fX'^'^^SV 
DATA A(6),A(7),A(8),A(9)/X , 14',X»22 , ,X , 41' ,X'00'/ 
FINE HORIZONTAL LINES 

DATA A(10),A(ll) / A(12)/2,X , FF , f X , 00'/ 
MEDIUM HORIZONTAL LINES 
DATA A(13)/4/ 

DATA A(14) f A(15),A(16) f A(17)/X , FF» f X , FF' f X , 00 , f X , 00'/ 
DIAGONAL LINES 
DATA A(18)/4/ 

DATA A(19) f A(20),A(21) / A(22)/X , 03' f X'0C' f X'30 , f X'C0'/ 
LEFT TO RIGHT DIAGONALS 
DATA A(23)/4/ 

DATA A(24),A(25),A(26),A(27)/X'C0 , ,X , 30 , ,X»0C , ,X'03 1 / 

FINE VERTICAL LINES 

DATA A(28),A(29)/1,X»AA'/ 

MEDIUM VERTICAL LINES 

DATA A(30),A(31)/1,X'CC»/ 

COARSE VERTICAL LINES 

DATA A(32),A(33)/l f X'F0'/ 

ONE PIXEL DOTS 

DATA A(34),A(35) f A(36)/2,X , 22 l ,X , 00V 

TWO PIXEL DOTS 

DATA A(37) f A(38) f A(39)/2 f X l 99 I ,X l 66 1 / 
PLUSES 

DATA hl40),h(41),A(42),h(43)/3,X'3C\X'3C\X'FF'/ 

SOLID 

DATA A(44),A(45)/1 / X , FF*/ 

BROAD CROSS HATCH 

DATA A(46),A(47),A(48),A(49)/3 f X»92 l ,X , 92 , f X , FFV 
THICK CROSS HATCH 

DATA A(50)/4/ 

DATA ACSl^A^^ACSS^A^J/X'FFSX'FF'jX'DB'.X'DB'/ 
FINE CROSS HATCH 

DATA A(54),A(55),A(56)/2,X'92' ,X'FFV 
ALTERNATING PIXELS 

DATA A(57) f A(58) f A(59)/2 r X , 55 , r X , AA'/ 
DATA B(1),B(2),B(3),B(4)/1,0,1,X'FF'/ 

DATA IS(1),IS(2),IS(3),IS(4),IS(5),IS(6)/1,10,13,18,23,28/ 
DATA IS ( 7 ) , IS ( 8 ) , IS ( 9 ) , IS (10 ) , IS (11 ) /30 , 32 , 34 , 37 , 40/ 

DATA IS (12 ), IS (13 ), IS (14), IS (15), IS (16 )/44, 46, 50, 54, 57/ 
CALL CLS 
ENCODE (MSG, 100) 
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05000 


100 


FORMAT ( 'PAINTT AND SETXYR TE 


05100 




CALL SETXY(0 f 0) 


05200 




CALL LOCATE (0) 


05300 




CALL GPRINT(23,MSG) 


05400 




CALL WAIT 


05500 


C 




05600 


C 


PAINT ON A BLACK BACKGROUND 


05700 


C 




05800 




DO 10 1=1 , 16 


05900 




CALL SETXY(0,40) 


06000 




CALL SETXYR (639, 199) 


06100 




CALL LINEB(l f -l) 


06200 




CALL SETXYR (-300 ,-100) 


06300 




ITMP=IS(I) 


06400 




CALL PAINTT(A(ITMP),1,B) 


06500 




CALL WAIT 


06600 




CALL VIEW(0,40,639,239,0,0) 


06700 




CALL VIEW(0, 0,639, 239,-1,-1) 


06800 


10 


CONTINUE 


06900 


C 




07000 


c 


PAINT ON A WHITE BACKGROUND 


07100 


c 




07200 




DO 11 1=1,16 


07300 




IF(I.EQ.12) GOTO 11 


07400 




CALL VIEW(0,40,639,239,0,0) 


07500 




CALL VIEW(0, 0,639, 239, -1,-1) 


07600 




CALL SETXY(0,40) 


07700 




CALL SETXYR (639, 199) 


07800 




CALL LINEBF(l) 


07900 




CALL SETXYR (-300, -100) 


08000 




ITMP=IS(I) 


08100 




CALL PAINTT(A(ITMP),0,B(3)) 


08200 




CALL WAIT 


08300 


11 


CONTINUE 


08400 




RETURN 


08500 




END 
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SUBROUTINE GPTST 

GET AND PUT TEST 

LOGICAL A(1000),MSG(16) 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT ('GET AND PUT TEST') 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(16,MSG) 

CALL VIEW(0,30,639, 239,0,0) 

CALL SETXY (100,100) 

CALL SETXYR(30,30) 

CALL LINEBF(l) 

CALL GET (A, 1000) 

CALL CLS 

CALL WAIT 

CALL SETXY (100,100) 

CALL PUT(A,1) 

CALL WAIT 

CALL VIEW(0, 0,639, 239,0,-1) 

RETURN 

END 
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C 
C 
C 



100 



C 
C 
C 



11 

10 
C 

c 
c 



13 
12 



101 



999 
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1000 



SUBROUTINE PPTST 

PSET AND POINT TEST 

LOGICAL POINT,MSG(21) 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT ( 'PSET AND POINT TEST 1 ) 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(19,MSG) 

CALL WAIT 

CALL CLS 

SET AND CHECK ALL PIXELS 

DO 10 1=0,639 
DO 11 J=0,239 
CALL SETXY(I,J) 
CALL PSET(l) 
K=POINT(L) 
IF(K.EQ.0) GOTO 999 
CONTINUE 
CONTINUE 

RESET AND CHECK ALL PIXELS 

DO 12 1=0,639 

DO 13 J=0,239 

CALL SETXY(I,J) 

CALL PSET(0) 

K=POINT(L) 

IP (K.EQ.l) GOTO 999 

CONTINUE 

CONTINUE 

CALL CLS 

ENCODE (MSG, 101) 

FORMAT('PSET AND POINT PASSED 1 ) 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(21,MSG) 

GOTO 1000 

CALL CLS 

ENCODE (MSG, 102) 

FORMAT('PSET AND POINT FAILED 1 ) 

CALL SETXY(0,0) 

CALL LOCATE(0) 

CALL GPRINT(21,MSG) 

CALL WAIT 
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05000 RETURN 

05100 END 
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C 
C 
C 



100 



C 
C 
C 



11 
10 

c 
c 
c 



13 
12 



101 



999 
102 

1000 



SUBROUTINE PRETST 

PRESET AND POINT TEST 

LOGICAL POINT / MSG(23) 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT ( 'PRESET AND POINT TEST 1 ) 

CALL SETXY(0 f 0) 

CALL LOCATE (0) 

CALL GPRINT(23,MSG) 

CALL WAIT 

CALL CLS 

SET AND CHECK ALL PIXELS 

DO 10 1=0,639 
DO 11 J=0,239 
CALL SETXY(I,J) 
CALL PRESET(l) 
K=POINT(L) 
IF(K.EQ.0) GOTO 999 
CONTINUE 
CONTINUE 

RESET AND CHECK ALL PIXELS 

DO 12 1=0 , 639 

DO 13 J=0,239 

CALL SETXY(I,J) 

CALL PRESET(0) 

K=POINT(L) 

IF (K.EQ.l) GOTO 999 

CONTINUE 

CONTINUE 

CALL CLS 

ENCODE (MSG, 101) 

FORMAT ( 'PRESET AND POINT PASSED*) 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(23,MSG) 

GOTO 1000 

CALL CLS 

ENCODE (MSG, 102) 

FORMAT (' PRESET AND POINT FAILED 1 ) 

CALL SETXY(0,0) 

CALL LOCATE(0) 

CALL GPRINT(23,MSG) 

CALL WAIT 



Radio /haek 



-146- 



Computer Graphics Operation Manual 



05000 RETURN 

05100 END 
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00100 




SUBROUTINE SCRTST 


00200 


C 




00300 


C 


SCREEN TEST 


00400 


C 




00500 




LOGICAL MSG(ll) 


00600 




CALL CLS 


00100 




ENCODE (MSG, 100) 


00800 


100 


FORMAT ( ' SCREEN TEST ' ) 


00900 




CALL SETXY(0,0) 


01000 




CALL LOCATE (0) 


01100 




CALL GPRINT(11,MSG) 


01200 




CALL WAIT 


01300 




CALL SETXY(300,120) 


01400 




CALL CIRCLE (100, 1,0. 0,6. 28 ,0.5) 


01500 




CALL CIRCLE(100,1,0.0,6.28,0.25) 


01600 




CALL CIRCLE(50,1,0.0,6.28,0.5) 


01700 




CALL PAINT (1,1) 


01800 


C 




01900 


C 


GRAPHICS SCREEN 


02000 


C 




02100 




CALL SCREEN(0) 


02200 




CALL WAIT 


02300 




CALL WAIT 


02400 




CALL WAIT 


02500 


C 




02600 


C 


TEXT SCREEN 


02700 


C 




02800 




CALL SCREEN(l) 


02900 




CALL WAIT 


03000 




CALL WAIT 


03100 




CALL WAIT 


03200 


C 




03300 


C 


GRAPHICS SCREEN 


03400 


C 




03500 




CALL SCREEN(0) 


03600 




CALL WAIT 


03700 




CALL WAIT 


03800 




CALL WAIT 


03900 




RETURN 


04000 




END 
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C 
C 
C 



100 



C 
C 
C 



C 
C 
C 



C 
C 
C 



C 

c 
c 



c 
c 
c 



SUBROUTINE VTEST 

VIEW AND PVIEW TEST 

INTEGER FVIEW 

LOGICAL MSG(19) 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT ( 'VIEW AND PVIEW TEST 1 ) 

CALL SETXY(0,0) 

CALL LOCATE (0) 

CALL GPRINT(19,MSG) 

CALL WAIT 

DRAW VIEWPORT AND CIRCLES 

CALL VIEW(0,40,639,239,0,1) 
CALL DCIRCL(l) 

DRAW VIEWPORT AND LINES 

CALL VIEW(20,50,619,229,1,0) 
CALL DLINEC0) 

DRAW VIEWPORT AND CIRCLES 

CALL VIEW(40,60,599,209,0,0) 
CALL DCIRCL(l) 

DRAW VIEWPORT AND LINES 

CALL VIEW(60,70,579,199,1,1) 
CALL DLINE(0) 

CLEAR SCREEN 

IX1=FVIEW(0) 

IY1=FVIEW(1) 

IX2=FVIEW(2) 

IY2=FVIEW(3) 

CALL VIEW( 60-1X1 , 70-IY1 , 60+1X2 , 40+IY2 ,0,1) 

CALL CLS 

RETURN 

END 
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04600 
04700 
04800 
04900 
05000 
05100 
05200 

05300 
05400 
05500 
05600 
05700 
05800 
05 900 
06000 
06100 



10 



11 



SUBROUTINE DCIRCL ( ICLR ) 

CALL SETXY(100,100) 

DO 10 1=5,300,5 

CALL CIRCLE(I, ICLR, 0.0,6. 28,0. 5) 

CONTINUE 

CALL WAIT 

RETURN 

END 

SUBROUTINE DLINE(ICLR) 

DO 11 1=2,200,4 

CALL SETXY(-10,-10) 

CALL SETXY(I+200,I) 

CALL LINE ( ICLR, -1) 

CONTINUE 

CALL WAIT 

RETURN 

END 
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00100 SUBROUTINE WAIT 

00200 C 

00300 C THIS SUBROUTINE INTRODUCES A TIME DELAY 

00400 C 

00500 DO 11 J=l,20 

00600 DO 10 1=1,10000 

00700 10 CONTINUE 

00800 11 CONTINUE 
00900 RETURN 

01000 END 
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Appendix E/ Base Conversion Chart 



)EC. 


HEX. 


BINARY 





00 


00000000 


1 


01 


00000001 


X*' 


02 


00000010 


3 


03 


00000011 


4 


04 


00000100 


5 


05 


00000101 


6 


06 


000001 10 


7 


07 


00000111 


8 


08 


00001000 


9 


09 


00001001 


10 


0A 


00001010 


11 


0B 


00001011 


12 


0C 


00001 100 


13 


0D 


00001101 


14 


0E 


00001110 


15 


0F 


00001111 


16 


10 


00010000 


17 


11 


00010001 


18 


12 


00010010 


19 


13 


00010011 


20 


14 


00010100 


21 


15 


00010101 


22 


16 


00010110 


23 


17 


00010111 


24 


18 


0001 1000 


25 


19 


00011001 


26 


1A 


00011010 


27 


IB 


00011011 




1C 


00011100 


29 


ID 


00011101 


30 


IE 


00011110 


31 


IF 


00011111 


32 


20 


00100000 


33 


21 


00100001 


34 


22 


00100010 


35 


23 


00100011 


36 


24 


00100100 


37 


25 


00100101 


38 


26 


00100110 


39 


27 


00100111 



DEC. 


HEX. 


BINARY 


40 


28 


00101000 


41 


29 


00101001 


42 


2 A 


00101010 


43 


2B 


00101011 


44 


2C 


00101100 


45 


2D 


00101101 


46 


2E 


00101110 


47 


2F 


00101111 


48 


30 


00110000 


49 


31 


00110001 


50 


32 


00110010 


51 


33 


00110011 


52 


34 


00110100 


53 


35 


00110101 


54 


36 


00110110 


55 


37 


00110111 


56 


38 


00111000 


57 


39 


00111001 


58 


3A 


00111010 


59 


3B 


00111011 


60 


3C 


00111100 


61 


3D 


00111101 


62 


3E 


00111110 


63 


3F 


00111111 


64 


40 


01000000 


65 


41 


01000001 


oo 


42 


01000010 


67 


43 


01000011 


68 


44 


01000100 


69 


45 


01000101 


70 


46 


01000110 


71 


47 


01000111 


72 


48 


01001000 


73 


49 


01001001 


74 


4A 


01001010 


75 


4B 


01001011 


76 


4C 


01001100 


17 


4D 


01001101 


78 


4E 


01001110 


79 


4F 


01001111 
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DEC. 


HEX. 


BINARY 


80 


50 


01010000 


81 


51 


01010001 


82 


52 


01010010 


83 


53 


01010011 


84 


54 


01010100 


85 


55 


01010101 


86 


56 


01010110 


87 


57 


01010111 


88 


58 


01011000 


89 


59 


01011001 


90 


5A 


01011010 


91 


5B 


01011011 


92 


5C 


01011100 


93 


5D 


01011101 


94 


5E 


01011110 


95 


5F 


01011111 


96 


60 


01100000 


97 


61 


01100001 


98 


62 


01100010 


99 


63 


01100011 


100 


64 


01100100 


101 


65 


01100101 


102 


66 


01100110 


103 


67 


01100111 


104 


68 


01101000 


105 


69 


01101001 


106 


6A 


01101010 


107 


6B 


01101011 


108 


6C 


01101100 


109 


6D 


01101101 


110 


6E 


01101110 


111 


6F 


01101111 


112 


70 


01110000 


113 


71 


01110001 


114 


72 


01110010 


115 


73 


01110011 


116 


74 


01110100 


117 


75 


01110101 


118 


76 


01110110 


119 


77 


01110111 



DEC. 


HEX. 


BINARY 


120 


78 


01111000 


121 


79 


01111001 


122 


7A 


01111010 


123 


7B 


01111011 


124 


7C 


01111100 


125 


7D 


01111101 


126 


7E 


01111110 


127 


7F 


01111111 


128 


80 


10000000 


129 


81 


10000001 


130 


82 


10000010 


131 


83 


10000011 


132 


84 


10000100 


133 


85 


10000101 


134 


86 


10000110 


135 


87 


10000111 


136 


88 


1 000 1 000 


137 


89 


10001001 


138 


8A 


10001010 


139 


8B 


10001011 


140 


8C 


10001100 


141 


8D 


10001101 


142 


8E 


10001110 


143 


8F 


10001111 


144 


90 


10010000 


145 


91 


10010001 


146 


92 


10010010 


147 


93 


10010011 


148 


94 


10010100 


149 


95 


10010101 


150 


96 


10010110 


151 


97 


10010111 


152 


98 


10011000 


153 


99 


10011001 


154 


9A 


10011010 


155 


9B 


10011011 


156 


9C 


10011100 


157 


9D 


10011101 


158 


9E 


10011110 


159 


9F 


10011111 
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DEC. 


HEX. 


BINARY 


DEC. 


HE.X h 


BINARY 


160 


A0 


10100000 


200 


C8 


11001000 


161 


Al 


10100001 


201 


C9 


11001001 


162 


A2 


10100010 


202 


CA 


11001010 


163 


A3 


10100011 


203 


CB 


11001011 


164 


A4 


10100100 


204 


CC 


11001100 


165 


A5 


10100101 


205 


CD 


11001101 


166 


A6 


10100110 


206 


CE 


11001110 


167 


A7 


10100111 


207 


CF 


11001111 


168 


A8 


10101000 


208 


D0 


11010000 


169 


A9 


10101001 


209 


Dl 


11010001 


170 


AA 


10101010 


210 


D2 


11010010 


171 


AB 




211 


D3 


11010011 


172 


AC 


10101100 


212 


D4 


11010100 


173 


AD 


10101101 


213 


D5 


11010101 


174 


AE 


10101110 


214 


D6 


11010110 


175 


AF 


10101111 


215 


D7 


11010111 


176 


B0 


10110000 


216 


D8 


11011000 


177 


Bl 


10110001 


217 


D9 


11011001 


178 


BI- 


10110010 


218 


DA 


11011010 


179 


BS 


10110011 


219 


DB 


11011011 


180 


B4 


10110100 


220 


DC 


11011100 


181 


B5 


10110101 


•"•-.•1 


DD 


11011101 


182 


B6 


10110110 


222 


DE 


11011110 


183 


B7 


10110111 


223 


DF 


11011111 


184 


B8 


10111000 


224 


E0 


11100000 


185 


B9 


10111001 


225 


El 


11100001 


186 


BA 


10111010 


226 


E2 


11100010 


187 


BB 


10111011 


227 


E3 


11100011 


188 


BC 


10111100 


228 


E4 


11100100 


189 


BD 


10111101 


jzj£f 


E5 


11100101 


190 


BE 


10111110 


230 


E6 


11100110 


191 


BF 


10111111 


231 


E7 


11100111 


192 


C0 


11000000 


232 


E8 


11101000 


193 


CI 


11000001 


233 


E9 


11101001 


194 


C2 


11000010 


234 


EA 


11101010 


195 


C3 


11000011 


235 


EB 


11101011 


196 


C4 


11000100 


236 


EC 


11101100 


197 


C5 


11000101 


237 


ED 


11101101 


198 


C6 


11000110 


238 


EE 


11101110 


199 


C7 


11000111 


239 


EF 


11101111 
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DEC, 


HEX. 


BINARY 


240 


F0 1 


1110000 


241 


Fl 1 


1110001 


242 


F2 1 


1110010 


243 


F3 1 


1110011 


244 


F4 1 


1110100 


245 


F5 1 


1110101 


246 


F6 1 


1110110 


247 


F7 1 


1110111 


248 


F8 1 


1111000 


249 


F9 1 


1111001 


250 


FA 1 


1111010 


251 


FB 1 


1111011 


252 


FC 1 


1111100 


253 


FD 1 


1111101 


254 


FE 1 


1111110 


255 


FF 1 


1111111 
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Appendix P/ Pixel Grid Reference 

The following hexadecimal numbers include commonly used 
tiling designs. 

Important Note: You cannot use more than two empty rows of 
tiles when tiling or you'll get an Illegal Function Call 
error. 

Example (four rows of empty tiles): 

CHR$ ( &HFF ) +CHR$ ( &HFF ) +CHR$ ( &E00 ) +CHR$ ( &H00 ) +CHR$ ( &H0 ) +CHR$ ( &H00 ) 

gives you an Illegal Function Call error. 



1. "X" 

CHR$(&H41)+CHR$(&H22)+CHR$(&H14)+CHR$(&H08)+CHR$(&H14) 
+CHR$ ( &H22 ) +CHR$ ( &H41 ) +CHR$ ( &H00 ) 

Hex Decimal 






1 

















1 








1 











1 














1 





1 




















1 




















1 





1 














1 











1 








1 

















1 



























41 


65 


22 


34 


14 


20 


08 


8 


14 


20 


22 


34 


41 


65 


00 
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2. "Fine" horizontal lines 
CHR$ ( &HFF ) +CHR$ ( &H00 ) 



Operation Manual 



1 


1 


1 


1 


1 


1 


1 


1 



























Hex 


Decimal 


FF 


255 


00 






3. "Medium" horizontal lines 

CHR$ ( &HFF ) +CHR$ ( &HFF ) +CHR$ ( &E00 ) +CHR$ ( &H00 ) 



1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 



















































Hex 


Decimal 


FF 


255 


FF 


255 


00 





00 
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4 . Diagonal lines 

(Right to left) : 

CHR$ ( &H0 3 ) +CHR$ ( &H0C ) +CHR$ ( &H30 ) +CHR$ ( &HCjef ) 





















1 


1 














1 


1 














1 


1 














1 


1 





















Hex 


Decima 


03 


3 


0C 


12 


30 


48 


C0 


192 



(Left to right) 

CHR$ ( &HC0 ) +CHR$ ( &H30 ) +CHR$ ( &H0C ) +CHR$ ( &H0 3 ) 



1 


1 


























1 


1 














^ 











1 


1 


























1 


1 



Hex 


Decima 


C0 


192 


30 


48 


0C 


12 


03 


3 



5. "Fine" vertical lines 
CHR$(&HAA) 



















Hex 
AA 


Decimal 


1 





1 





1 





1 





170 


6. "Medium' 


' vertical 


lines 












CHR$(&HCC) 












Hex 
CC 


Decimal 


1 


1 








1 


1 








204 
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7. "Coarse" vertical lines 
CHR$(&HFJ0) 



1 


1 


1 


1 















Hex 
F0 



Decimal 
240 



8. One-pixel dots 
CHR$ ( &H22 ) +CHR$ ( &H00 ) 









1 











1 






























Hex 


Decima 


22 


34 


00 






9. Two-pixel dots 
CHR$ ( &H9 9 ) +CHR$ ( &H6 6 ) 



1 








1 


1 








1 





1 


1 








1 


1 






Hex 


Decimal 


99 


153 


66 


102 



10. Pluses ("+" ) 
CHR$(&H3C)+CHR$(&H3C)+CHR$(&HFF) 









1 


1 


1 


1 














1 


1 


1 


1 








1 


1 


1 


1 


1 


1 


1 


1 



Hex 


Decimal 


3C 


60 


3C 


60 


FF 


255 
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11. Solid (all pixels ON) 
CHR$(&HFF) 
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11111 111 



Hex 
FF 



Decimal 
255 



12. "Broad" cross-hatch 

CHR$ ( &H92 ) +CHR$ ( &H92 ) +CHR$ ( &HFF ) 



1 








1 








1 





1 








1 








1 





1 


1 


1 


1 


1 


1 


1 


1 



Hex 


Decimal 


92 


146 


92 


146 


FF 


255 



13. "Thick" cross-hatch 

CHR$ ( &HFF ) +CHR$ ( &HFF ) +CHR$ ( &HDB ) +CHR$ ( &HDB ) 



1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 





1 


1 





1 


1 


1 


1 





1 


1 





1 


1 



Hex 


Decimal 


FF 


255 


FF 


255 


DB 


219 


DB 


219 
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CHR$ ( &H92 ) +CHR$ ( &HFF ) 
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1 








1 








1 





1 


1 


1 


1 


1 


1 


1 


1 



Hex 


Decimal 


92 


146 


FF 


255 



15. Alternating pixels 
CHR$ ( &H55 ) +CHR$ ( &HAA ) 






1 





1 





1 





1 


1 





1 





1 





1 






Hex 

55 

AA 



Decimal 
85 
170 
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Appendix G/ Line Style Reference 



Type 

Long dash 
Short dash 



Binary Numbers 

0000 0000 1111 1111 
1111 0000 1111 0000 



Hex Decimal 

&H00FF 255 

&HF0F0 -3856 

&HCCCC -13108 

&HFFFF -1 

&H5555 21845 

&H0808 2056 

&H8888 -30584 

&H8FF8 -28680 



"Short-short" dash 1100 1100 1100 1100 



Solid line 
OFF/ON 
"Wide" dots 
"Medium" dots 
"Dot-dash" 



1111 1111 1111 1111 
0101 0101 0101 0101 
0000 1000 0000 1000 
1000 1000 1000 1000 
1000 1111 1111 1000 
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Index 



Absolute Coordinates 

AND 

Arc 

Array 


Array Limits 
Array Name 
ASCII 
Aspect Ratio 


BASIC 
BASICG 




BASICG 
BASICG 
BASICG 
Binary 


Command 

Error Messages 

Functions 

Numbers 



Cartesian System 
CIRCLE 

CLR 

CLS 

Communication Drivers 

Current Coordinates 

DEBUG 

DO 

Double-Precision 

Ellipse 

FORMS 
FORTRAN 

Free Memory 
FVIEW 

GCLS 
GET 

GLOAD 



54-56, 110 

46, 48, 107, 117 

16, 22 

24-27, 46, 47, 54, 

96-98, 107, 121 

24, 25, 97, 98 

24, 25, 46, 118, 119 

12 

16, 17, 20, 21, 95 

5, 12, 24, 46, 93 

8, 12, 14, 38, 44, 46, 
91, 127, 133 

13, 15 
120-124 

14, 15 

31, 35-37, 162 

9, 11, 54, 110 
13, 16-23, 94, 95, 
117, 125 

13, 117 

94, 117, 125 

59 

91, 92, 96, 109 

59 

59, 98, 108, 111 
15 

6, 20-23, 94, 117 

62, 133 

5, 59, 91-94, 99, 112, 

135 

12, 38, 93 
94, 112, 125 

60, 64, 117 

13, 24-27, 46, 47, 54, 
94, 96, 125 

60, 61, 66, 118 
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GLOCATE 
GPRINT 

GPRT2 

GPRT3 

Graphics Board 

GRAPHICS ERROR 

Graphics Memory 

Graphics Utilities 

GROFF 

GRON 

GRPINI 

GRPLIB/REL 

GSAVE 

Hard Disk 
Hex Numbers 

Initialization 
Integer 
INTEGER 
Integer Range 
I/O Port Mapping 



13, 27, 28, 43, 118 
60, 62, 94, 98, 99, 
118, 125 
60, 63, 118 
60, 63-64, 118 
114, 115 

93, 99 

60-62, 64, 66, 134 

59-66 

60, 64, 118 

60, 65, 118 

94, 99, 125 
91, 92 

60, 66, 118 



30, 31, 37, 156, 162 

92 

15, 24, 25, 97 

95, 96, 98, 100, 109-111 

9, 17, 29, 30, 100, 120 

114 



LINE 

LINE-CMD 

Line Styles 

LINEB 

LINEB-CMD 

LINEBF 

LINEBF-CMD 

Loading BASICG 

LOCATE 

LOGICAL 

Notational Conventions 
Numeric Expressions 
Numeric Values 

Options Programming 
OR 

PAINT 

PAINT-CMD 
PAINTT 
PAINTT-CMD 
Pie-Slice 



13, 29- 


32, 91, 94, 


118, 


125 






91, 100 






29, 30, 


31, 162 




91, 94, 


101, 125 




91 






91, 94, 


101, 125 




91 






12, 14 






94, 125 






95-108, 


110-112 




6 






17, 34 






15 






116 






46, 48, 


107, 117 




13, 33-- 


10, 54, 91, 


94, 


103, 118, 125 




91 






91, 94, 


104, 125 




91 






16 







Radio /haek 



-164- 



Computer Graphics 

Pixel 

Pixel Area 

POINT 

PRESET 

Previous Coordinates 

PRINT #-3 

Printers 

PSET 

PUT 



Real 

REAL 

Relative Origin 

Resolution 

SCREEN 

SCREEN-CMD 
Screen Dump 
SETXY 

SETXYR 

Single-Precision 
Starting-Up 
Strings 
Subroutine Library 

Text Screen 



Video Display 
VIEW 

VIEW (command) 
VIEW (function) 

Viewport 



XOR 
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7, 9, 30, 34, 35, 40-45, 

48, 94, 97, 105, 106, 

112, 114, 156 

24-27, 46-48, 51, 52, 

96, 97, 107, 118 

14, 40, 41, 94, 112, 

118, 126 

13, 42, 43, 46, 48, 94, 

105, 107, 117, 118, 126 
91, 92, 96, 109 

13, 43, 119 

5 

13, 44-46, 48, 51, 94, 

106, 117, 119, 126 
13, 24, 46-49, 51, 52, 
94, 107, 119 



25, 97 




95 




54, 110 




1, 8 




13, 52, 53, 


- 94, 108, 


119, 126 




15, 108 




62 




91, 92, 94, 


96, 100, 


109, 126 




91, 92, 94, 


100, 109, 


126 




15, 16, 21, 


117 


14 




34-36 




8, 91, 92, 


111, 125 


9, 13, 15, 


52, 53, 108, 


114, 117 





9, 114 

13, 54-56, 94, 110, 111, 

119, 126 

13, 54-56 

14, 57, 58, 110, 111, 
119 

13, 14, 54-58, 94, 110, 
112, 119 

46, 107, 115, 117 
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